/MAGNETIC TAPE EXERCISER MODULE AVAILABLE IN 2 SIZES 
/MAGTAP OR MAGTPS ( 4000 OR 400 WORD BUFFERS) 

/REV, DATE - 4/15/71 Cl) 

/ 

,ebrel 

/ 






/ASSEMBLY PARAMETERS — — 




004000 

A 

BUFSIZ®4000 


/SIZE OF BUFFERS, ****** (400 FOR MAGTPS) 



000010 

A 

NUMHANs 10 


/NUMBER OF HANDLERS ALLOWED, 



002000 

A 

TSTRUN=2000 





000020 

A 

NUMPAR=20 


/NUMBER OF HANDLER PARAMETERS, 



707341 

A 

MTSF»70734l 


/SKIP ON MAG. TAPE FLAG. 



707321 

A 

MTCR=707321 


/SKIP ON CONTROLLER READY, 



707301 

A 

MTTR*70730l 


/SKIP ON TRANSPORT READY. 



707322 

A 

MTAF=707322 


/CLEAR STATUS AND COMMAND REGS, 



707324 

A 

MTCM=707324 


/OR AC TO COMMAND REG, 



7W7326 

A 

MTIC=707326 


/LOAD AC TO COMMAND REG, 



707352 

A 

MTRS=707352 


/READ STATUS REGISTER 



707312 

A 

MTRC=7073 1 2 


/READ COMMAND REGISTER 



707304 

A 

MTGQ*707304 


/SET GO FLIP-FLOP IN CONTROLLER 



707702 

A 

EE M =707702 





70776 4 

A 

EBA=707764 



00000 

R 

603005 

A 

UODSW 603005 



00001 

R 

000000 

A 

0 


/PATTERN WORD FOR PARAMETER MODE 

00002 

R 

000000 

A 

0 


/RECORD LENGTH FOR PARAMETER MODE 

00003 

R 

00M000 

A 

0 


/RUN LENGTH, 0=2000 

00004 

R 

000301 

R 

, DS A 

MSERV 

/SERVICE ENTRANCE 

00005 

R 

000205 

R 

, DS A 

MINIT 

/INITIATION ENTRANCE 

00006 

R 

150107 

A 

, SI XBT 

''MAGTAP" 

/PROGRAM TITLE ****** (MAGTPS) 

00007 

R 

240120 

A 




00010 

R 

000001 

A 

1 


/MASK FOR CHAIN MODE 

00011 

R 


A 

.BLOCK 

7 


00020 

R 

000000 

A 

/ 

SYSERR 0 


/ERROR IND, TO MQN,,=-1 FIRST ER,,=-2 SECOND 

00021 

R 

000000 

A 

0 


/WORD COUNT FOR DATA WORDS, 

00022 

R 

000000 

A 

ERCOPE 0 


/ERROR CODE, 

00023 

R 

000000 

A 

0 


/HANDLER NO, 

00024 

R 

000000 

A 

0 


/COMMAND 

00025 

R 

000000 

A 

0 


/STATUS RETURN 

00026 

R 

000000 

A 

O 


/STARTING WC 

00027 

R 

000000 

A 

0 


/FINAL WC 

00030 

R 

000000 

A 

0 


/STARTING CA 

00031 

R 

000000 

A 

0 


/FINAL CA 


/ 

/MAGNETIC TAPE SYSTEMS TEST, 

/TEST 0— --RUN ALL AVAILABLE HANDLERS SELECTING HANDLERS AND 
/ OPERATIONS ON A RANPUM BASIS, 

/TEST 1 WRITE 100,1000 WORD RECORDS, EACH RECORD ALL ONES, DENSITY 

/ Sm BPI, ODD PARITY, THEN REWIND AND REPEAT, 

/TEST 2— —PERFORM TEST l, AFTER WRITE SEQUENCE AND REWIND, READ 
/ ALL RECORDS, REWIND, AND REPEAT READ CYCLE, 

/TEST 3-— SIMULATED COPY OPERATION, WRITE 1000 RECORDS OF RANDOM LENGTH MADE 
/ UP OF RANDOM DATA, REWIND AND COPY DATA FROM ONE HANDLER TO 
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THE NEXT, AT END OF FILE REWIND BOTH TAPES AND REPEAT. 
.EJECT 
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O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


/COMMAND SKELETON TABLE - CONTAINS COMMAND CODE FOR EACH COMMAND 


o 






/ 


/WITH INTERRUPT ENABLE BIT SET. 


00032 

R 

000000 

A 

NOOP 

000000 

/NO OP COMMAND * C0) 

o 

00033 

R 

001000 

A 

REWIND 

001000 

/REWIND COMMAND. CU 


00034 

R 

002400 

A 

READ 

002400 

/READ DATA COMMAND, (2) 


00035 

R 

000000 

A 

RDCOMP 

0 

/READ AND COMPARE COMMAND. (3) 

0 

00036 

R 

004400 

A 

WRITE 

004400 

/WHITE COMMAND. (4) 

00037 

R 

005400 

A 

WRTEOF 

005400 

/WRITE EOF COMMAND, C5) 


00040 

R 

006400 

A 

SPCFWD 

006400 

/SPACE FORWARD COMMAND. (6) 

o 

00041 

R 

007400 

A 

SPCREV 

007400 

/SPACE REVERSE COMMAND. 17 3 

00042 

R 

014400 

A 

WRTEXT 

014400 

/WRITE EXTENDED CMD. 


00043 

R 

000400 

A 

NOOP 1 

000400 


o 

00044 

R 

001400 

A 

REWNQ1 

001400 




000032 

R 

f 

C 0 D S K L = 

NQQP 

/EQUATE FOR START OF COMMAND TABLE. 

o 

00045 

R 

000000 

A 

/ 

HANDNM 

000000 

/HANDLER NOS, POSITIONED FOR DIRECT 


00046 

R 

100000 

A 


100000 

/INSERTION IN COMMANDS, 

0 

000 47 

R 

200000 

A 


200000 


00050 

R 

300000 

A 


300000 



00051 

R 

400000 

A 


400000 


o 

00052 

R 

500000 

A 


500000 



00053 

R 

mmm 

A 


600000 



00054 

R 

700000 

A 

/ 

/CHECK 

700000 


o 





ROUTINE POINTERS 

ASSOCIATED WITH EACH COMMAND, 

G 

/ 

00055 

R 

000000 

A 

CKNOOP 

0 

/CHECK N0*»QP (0) 


00056 

R 

000000 

A 

CKRWND 

0 

/CHECK REWIND (1) 


00057 

R 

000666 

R 

CKREAD 

CKSR2 

/CHECK READ DATA C2) 

o 

00060 

R 

000000 

A 

CKRDCM 

0 

/CHECK READ COMPARE C3) 


00061 

R 

001000 

R 

CKWRT 

CKSR4 

/CHECK WRITE DATA (4) 


00062 

R 

001015 

R 

CKWTEF 

CKSR5 

/CHECK WRITE EOF (5) 

o 

00063 

R 

001024 

001027 

R 

CKSPFD 

CKSR6 

/CHECK SPACE FORWARD (6) 


00064 

R 

R 

CKSPBK 

/ 

CKSR7 

/CHECK SPACE BACKWARD. (7) 

o 




000055 

R 

CHKTAB= 

CKNOOP 

/EQUATE FOR START OF CHECK TAB, 


EJECT 


O 


O 


o 


o 


o 


o 


o 


o 
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/THIS HANDLER AND NEXT HANDLER NUMBERS. 

/ 

00065 R M00000 A THSHAN 0 /THIS HANDLER. 

00066 R 000000 A CURHAN 0 /CURRENT HANDLER. 

/ 

/POINTER LOCATIONS FOR VARIOUS PARAMETERS AND CONSTANTS STORED IN QPRTAB, 


00067 

R 

000000 

A 

/ 

CMD 

0 

00070 

R 

000000 

A 

CA 

0 

00071 

R 

000000 

A 

WC 

0 

00072 

R 

000000 

A 

CNKPTR 

0 

00073 

R 

000000 

A 

CNTR 

0 

00074 

R 

000000 

A 

CNTW 

0 

00075 

R 

000000 

A 

DENPAR 

0 

00076 

R 

000000 

A 

NONSEN 

0 

00077 

R 

000000 

A 

HANNUM 

M 

00100 

R 

00000W 

A 

CMDCNT 

0 

00101 

R 

000000 

A 

EOFCNT 

0 

0W102 

R 

000000 

A 

RPCNT 

0 

00103 

R 

000000 

A 

WRTCNT 

0 

00104 

R 

000000 

A 

SPFCNT 

0 

00105 

R 

000000 

A 

SPBCNT 

0 

00106 

R 

000000 

A 


0 



000067 

R 

/ 

PARTAB 

= CMO 





y 

/SAVE 

STORAGE CELLS FOR END 

00107 

R 

000000 

A 

j 

SVCMD 

0 

00110 

R 

mmm 

A 

S VST AT 

0 

00111 

R 

000000 

A 

SVGA 

0 

00112 

R 

000000 

A 

SVWC 

0 

00113 

R 

000033 

A 

SYSCA 

33 

00114 

R 

000032 

A 

SYSWC 

32 

00115 

R 

000000 

A 

j 

DISTSW 

0 

♦ F- ** 


.EJECT 


/CURRENT COMMAND. 

/CURRENT ADR. USED. 

/WORD COUNT USED, 

/POINTER TO QPER, CHECK ROUTINE, 
/CURRENT POSITION COUNTER, 

/NO. OF RECORDS WRITTEN COUNTER. 
/CURRENT DENSITY AND PARITY. 

/NONSENSE STATUS BITS FOR THIS CMD 
/HANDLER NUMBER FOR INSERTION IN CMD. 
/COMMAND COUNT, 

/END OF FILE COUNT, 

/READ COUNT, 

/WRITE COUNT, 

/SPACE FORWARD COUNT, 

/SPACE BACKWARD COUNT. 


OF OPERATION 


/SAVE FINAL CA. 

/SAVE FINAL WC. 

/POINTERS FOR SYSTEM CA 
/ANO WC 

/TEST DISTRIBUTION SW. AT SERVICE ENTRANCE 
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/NONSENSE STATUS BITS ASSOCIATED WITH EACH COMMAND , 
/ 


00116 

R 

037600 

A 

NONTAB 037600 

/FOR 

N 0 0 P C 0 ) 

m\\7 

R 

0 376 0 0 

A 

037600 

/FOR 

REWINDCn 

00120 

R 

3020W0 

A 

30200O 

/FOR 

READC2) 

00121 

R 

000000 

A 

0 

/FOR 

READ"C0MPARE(3) 

00122 

R 

313000 

A 

313000 

/FOR 

WRITE (43 

00123 

R 

303400 

A 

303400 

/FOR 

WRITE EOF (5) 

00124 

R 

303400 

A 

303400 

/FOR 

SPACE FORWARD (6) 

00125 

R 

207400 

A 

207400 

/ 

/FOR 

SPACE REVERSE (7) 


/CONSTANTS FOR COMMAND DISTRIBUTIONS, 


/ 


00126 

R 

000400 

A 

EOFCON 

400 

/WRITE EOF 

00127 

R 

000200 

A 

SPFCON 

200 

/SPACE FORWARD 

00130 

R 

00020O 

A 

SPBCON 

200 

/SPACE BACKWARD, 





/MASK TABLE USED FOR SETTING UP 

J 

STATUS MASKS FOR SELECTABLE HANDLERS 

00131 

R 

377777 

A 

/ 

MSKTAB 

377777 

/BIT 0 CORRESPONDS TO HANDLER 

00132 

R 

5777/7 

A 


577777 

/ZERO WHILE BIT 7 CORRESPONDS 

0 0133 

R 

677777 

A 


677777 

/TO HANDLE SEVEN, 

00134 

R 

73 7777 

A 


737777 

/NOTE: THAT MASK TABLE IS IN 

00135 

R 

757777 

A 


757777 

/COMPLEMENTARY FORM, 

00136 

R 

767777 

A 


767777 


00137 

R 

773777 

A 


773777 


00140 

R 

775777 

A 


775777 






/STATUS 

/RECORD 

7 

RECTAB 

WORDS FOR ESTABLISHING 
LENGTH TABLE 

CURRENT STATUS OF HANDLERS, 

00141 

R 

004000 

A 

BUFSIZ 


00142 

R 

302000 

A 


BUFSIZ/2 


00143 

R 

001000 

A 


BUFSIZ/4 


00144 

R 

004000 

A 


BUFSIZ/ 1 


00145 

R 

00200O 

A 


BUFSIZ/2 


00146 

R 

001000 

A 


BUFSIZ/4 


00 1 47 

R 

000400 

A 


BUFSIZ/ 10 


00150 

R 

000200 

A 

/TRACK 

BUFSIZ/20 

TABLE FOR SEVEN AND NINE 

TRACK TRANSPORTS, 

00151 

R 


A 

7 

TRKTAB 

/ 

ACTIVE 

, BLOCK 10 


00161 

R 

000000 

A 

0 

/ 0 s N 0 T ACTIVE, 1 = ACT I VE 

00162 

R 

777777 

A 

A NR WQ 

LAW " 1 

/(^REWINDING, IsNOT REWINDING 

00163 

R 

774D00 

A 

MAXBUF 

-BUFSIZ 






/SPECIAL TABLE FOR DETERMINING 

WHICH HANDLERS ARE ACTUALLY AVAILABLE 

00164 

R 


A 

r 

SELHAN 

/ 

/SECOND 

.BLOCK 10 






ERROR SAVE TABLE, 


00174 

R 

000000 

A 


0 


00175 

R 


A 

SAVERR 

, BLOCK 10 



« EJECT 
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o 









o 






/A****************************************************************** 







/MAGNETIC TAPE 

INITIALIZATION 

ROUTINE . 


o 

00205 

R 

000000 

A 

/ 

MINIT 

0 



o 


00206 

R 

707764 

A 


EB A 



o 

o 

00207 

R 

707702 

A 


EEM 



00210 

R 

200001 

R 


LAC 

UQDSW+t 




00211 

R 

047 460 

R 


0 AC 

PATTEN# 



o 

00212 

R 

773777 

A 


LAW 

-6UFSIZ-1 


o 


00213 

R 

340002 

R 


TAD 

UQQSW+2 




00214 

R 

740100 

A 


SMA 



o 

o 

00215 

R 

600224 

R 


JMP 

MINIT1 



00216 

R 

750001 

A 


CLC 





00217 

R 

340002 

R 


TAD 

UQQSW+2 


o 

o 

00220 

R 

740001 

A 


CMA 




00221 

R 

047466 

R 


DAC 

RECLEN# 




00222 

R 

741100 

A 


SPA 




o 

00223 

R 

600226 

R 


JMP 

.+3 


o 

00224 

R 

774000 

A 

MINIT1 

LAW 

-BUFSIZ 




00225 

R 

600221 

R 


JMP 

• *4 



o 

00226 

R 

200003 

R 


LAC 

UQQSW+3 


o 

00227 

R 

507520 

R 


AND 

C377777) 



00230 

R 

740200 

A 


SZA 




o 

00231 

R 

600235 

R 


JMP 

* + 4 


o 

00232 

R 

776000 

A 


LAW 

-TSTRUN 




00233 

R 

047465 

R 


DAC 

RANLEN# 



o 

00234 

R 

600240 

R 


JMP 

„+4 


o 

00235 

R 

740001 

A 


CMA 




00236 

R 

347521. 

8 


TAD 

Cl) 



0 

00237 

R 

047465 

R 


DAC 

RANLEN 


o 

00240 

R 

200205 

R 


LAC 

MINIT 

/SET LINK IN MSERV IN CASE 


00241 

R 

040301 

R 


PAG 

MSERV 

/OF ERROR, 


o 

00242 

R 

147442 

R 


DZfi 

PSTSW1# 


o 

00243 

R 

147457 

R 


DZM 

MQVERR# 

/CLEAR SECOND ERROR FLAG. 


00244 

R 

147416 

R 


DZM 

APIFLG# 

/CLEAR API FLAG, 


o 

00245 

R 

140020 

R 


DZM 

SYSERR 

/CLEAR SYSERR, 

o 


00246 

R 

140021 

R 


DZM 

ERCODE-l 



00247 

R 

147441 

R 


PZM 

DUNE# 




O .EJECT O 
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00250 

R 

707322 

A 


(IT AF 


/RESET MAG TAPE FLAGS. 

00251 

R 

707321 

A 


MTCR 


/CHECK CONTROLLER ROY. 

00252 

R 

602646 

R 


JMP 

ER01 

/NOT READY , TERMINATE. 

00253 

R 

100627 

R 


JMS 

CLQPT6 

/READY? CLEAR HANDLER TABLE. 

00254 

R 

140110 

R 


QZM 

SVSTAT 

/CLEAR STATUS 

00255 

R 

140161 

R 


0 L M 

ACTIVE 

/RESET ACTIVE, AND 

00256 

R 

102617 

R 


JMS 

RESCUE 


00257 

R 

102601 

R 


JMS 

BUFGEN 


00260 

R 

750001 

A 


CLC 


/rewind masks. 

00261 

R 

040162 

R 


DAC 

ANRWD 


00262 

R 

200000 

R 


LAC 

U005W 

/GET UODSW FOR TEST NO. 

00263 

R 

507522 

R 


AND 

(100000) 


00264 

R 

741200 

A 


SNA 



00265 

R 

600457 

R 


JMP 

RANINT+1 


00266 

R 

200W00 

R 


LAC 

UODSW 


00267 

R 

507523 

R 


AND 

(300 


00270 

R 

547524 

R 


SAD 

(0) 

/TEST ZERO, RANDOM HANDLER 

00271 

R 

600457 

R 


JMP 

RANINT+1 

/TEST. 

00272 

R 

547525 

R 


SAD 

(100) 

/TEST ONE, WRITE TEST. 

00273 

R 

602317 

R 


JMP 

TEST 1 + 1 


00274 

R 

547526 

R 


SAD 

(200) 

/TEST TWO, WRITE THEN READ 

00275 

R 

602324 

R 


JMP 

TEST2+1 

/TEST, 

00276 

R 

547523 

R 


SAD 

(300) 

/TEST 3, COPY TEST, 

00277 

R 

602372 

R 

> 

JMP 

TEST 3+1 


00300 

R 

600367 

R 

f 

JMP 

TERMIN 



.EJECT 



8 


MAGTAP 

1 SRC 









/a************************************************************ ********** 





/SERVICE ENTRANCE FOR MAGNETIC 

TAPE EXERCISER, 

00303, 

R 

000000 

A 

MSERV 

0 



00302 

R 

707764 

A 


E6 A 



00303 

R 

707702 

A 


EEM 



00304 

R 

100307 

R 


JMS 

TSTF LG 

/TEST FLAGS 

0 0305 

R 

120115 

R 


JMS* 

0 1 STS W 

/TEST DISTRIBUTION SWITCH. 

00306 

R 

600356 

R 

EXIT 

JriP 

ENDOPR 

/END OPERATION, EXIT. 





y***************** ****************************************************** 





/TEST 

j 

FLAGS FOR 

TYPE OF ENTRY. 


00307 

R 

000000 

A 

/ 

TSTFLG 

0 



00310 

R 

047415 

R 


DAC 

ACSAVE# 

/SAVE AC INCASE API IS ON, 

00311 

R 

707312 

A 


MTRC 



00312 

R 

040107 

R 


DAC 

SVCMD 


00313 

R 

707352 

A 


MTRS 



00314 

R 

040110 

R 


DAC 

S VST AT 


00315 

R 

2 00020 

R 


LAC 

SYSERR 

/CHECK SYSERR FLAG. IF ZERO 

00316 

R 

741200 

A 


SNA 


/MIGHT BE AN ARTIFICIAL ENTRY. 

00317 

R 

600332 

R 


JMP 

TSTF . 1 

/'ZERO i SO CHECK MOVE FLAG. 

00320 

R 

207527 

R 

/ 

TSTF , 4 

LAC 

C 400000) 

/NOT ZERO CHECK API, 

00321 

R 

705501 

A 


SPI 



00322 

R 

741000 

A 


SKP 



00323 

R 

600344 

R 


JMP 

TSTF. 2 

/API IS ON, GO SET API FLAG, 

00324 

R 

147416 

R 


UZM 

APIFLG 

/API NOT ON, CLEAR API FLAG, 

00325 

R 

707341 

A 


MTSF 


/CHECK MAG, TAPE FLAG 

00326 

R 

600353 

R 


JMP 

TSTF. 3 

/NOT ON, EXIT, NOT MAG, TAPE, 

00327 

R 

100653 

R 


JMS 

SAVEOP 

/ON, SAVE STATUS, WC AND CA FROM 

00330 

R 

707322 

A 


MTAF 


/PREVIOUS OPER. CLEAR MAG TAPE FLAGS. 

00331 

R 

620307 

R 


JMP* 

TSTFLG 

/ GO PRQC, THIS INTERRUPT, 

00332 

R 

207457 

R 

j 

TSTF , 1 

LAC 

MOVERR 

/CHECK MOVE ERROR FLAG, 

00333 

R 

740200 

A 


SZA 



00334 

R 

103172 

R 


JMS 

MOVPUT 

/ON RETURN MOVE ERROR FROM ERROR SAVE THEN 

00335 

R 

207442 

R 

/ 

LAC 

DSTSW1 


00336 

R 

740200 

A 


SZA 



00337 

R 

600451 

R 


JMP 

BREAK 1 


00340 

R 

207441 

R 


LAC 

DONE 


00341 

R 

740200 

A 


SZA 



00342 

R 

603154 

R 


JMP 

DON . 1 


00343 

R 

600320 

R 

j 

JMP 

TSTF, 4 






/ 



/MAGTAPE FLAGS, 

00344 

R 

777777 

A 

TSTF. 2 

LAW 

. i 

/SET API FLAG 

00345 

R 

047416 

R 


DAC 

APIFLG 


00346 

R 

707341 

A 


MTSF 


/CHECK MAG, TAPE FLAG 

00347 

R 

602563 

R 


JMP 

ER16 

/API IS ON BUT MAG, TAPE FLAG OFF, 

00350 

R 

100653 

R 


JMS 

SAVEOP 


00351 

R 

707322 

A 


MTAF 



00352 

R 

620307 

R 


JMP* 

TSTFLG 

/ON, GO PROC, INTERRUPT, 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


PAGE 


MAGTAP SRC 


EJECT 


o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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00353 

R 

750001 

A 

T3TF.3 

CLC 


/NOT MAG. TAPE - EXIT TO MQNITO 

00354 

R 

703344 

A 


DBR 



00355 

R 

620301 

R 


JMP* 

MSERV 

/WITH AC* "1, 

00356 

R 

207416 

R 

ENDQPR 

LAC 

APIFLG 

/END OPERATION EXIT., CHECK API 

00357 

R 

741200 

A 


SNA 


/FLAG FOR RESTORING ACCUMULATOR 

00360 

R 

600364 

R 


JMP 

TSTF.5 

/FLAG OFF, 

00361. 

R 

207415 

R 


LAC 

ACSAVE 

/ON, RESTORE AC, DEBREAK, 

00362 

R 

703344 

A 


DBR 


/AND EXIT, 

00363 

R 

620301 

R 


JMP* 

MSERV 


00364 

R 

750000 

A 

TSTF.5 

cla 


/CLEAR ACCOM, AND EXIT, 

0W365 

R 

703344 

A 


DBR 



03366 

R 

620301 

R 


JMP* 

MSERV 


00367 

R 

200033 

R 

TERMXN 

LAC 

REWIND 

/REWIND ALL HANDLERS 

00370 

R 

047505 

R 


DAC 

TER, 1# 

/THEN EXIT, 

00371 

R 

777770 

A 


law 

«10 


00372 

R 

047506 

R 


DAC 

TER, 2# 


00373 

R 

207530 

R 

TERM. 1 

LAC 

(•1200) 


0037 4 

R 

047507 

R 


DAC 

TER. 3a 


00375 

R 

707321 

A 


MTCR 



00376 

R 

741000 

A 


SKP 



00377 

R 

600407 

R 


JMP 

• + 10 


00400 

R 

100433 

R 


JMS 

BREAK 


00401 

R 

447507 

R 


ISZ 

TER, 3 


00402 

R 

600375 

R 


JMP 

, -5 


00403 

R 

207531 

R 

TERM, 2 

LAC 

(•4) 


00404 

R 

040020 

R 


DAC 

SYSERR 


00405 

R 

140021 

R 


DZM 

ERCQDE-1 


00406 

R 

600356 

R 


JMP 

ENDOPR 


00407 

R 

207530 

R 


LAC 

01200) 


00410 

R 

047507 

R 


DAC 

TER. 3 


00411 

R 

207505 

R 


LAC 

TER. 1 


00412 

R 

707326 

A 


MTLC 



00413 

R 

707301 

A 


HTTP 



004 14 

R 

741000 

A 


SKP 



00415 

R 

600422 

R 


JMP 

» +5 


00416 

R 

100433 

R 


JMS 

BREAK 


00417 

R 

447507 

R 


ISZ 

TER, 3 


00420 

R 

600413 

R 


JMP 

• -5 


00 421 

R 

741000 

A 


SKP 



00422 

R 

707304 

A 


MT GO 



00423 

R 

347522 

R 


TAD 

C 1 00000) 


00424 

R 

047505 

R 


DAC 

TER, 1 


00425 

R 

447506 

R 


ISZ 

TER. 2 


00426 

R 

600373 

R 


JMP 

TERM,! 


00427 

R 

707321 

A 


MTCR 



00430 

R 

600427 

R 


JMP 

• - 1 


03431 

R 

707322 

A 


MT AF 



00432 

R 

600403 

R 


JMP 

TERM, 2 







.EJECT 
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11 


MAGTAP 

SRC 



00433 

R 

000000 

A 

BREAK 

0 

00434 

R 

047417 

R 


DAC 

00435 

R 

750010 

A 


GLK 

00436 

R 

047456 

R 


DAC 

00437 

R 

200020 

R 


LAC 

00440 

R 

741200 

A 


SNA 

00 4 41 

R 

600444 

R 


JMP 

00442 

R 

777776 

A 


LAW 

00443 

R 

600445 

R 


JMP 

00444 

R 

777773 

A 


LAW 

00445 

R 

040020 

R 


DAC 

00446 

R 

777777 

A 


LAW 

00447 

R 

047442 

R 


DAC 

00450 

R 

600306 

R 


JMP 

00451 

R 

147442 

R 

BREAK 1 

D2M 

004 52 

R 

207456 

R 


LAC 

00453 

R 

740020 

A 


RAR 

00454 

R 

207417 

R 


LAC 

00455 

R 

620433 

R 


JMP* 


, EJECT 


DRKACft 


LINK# 

SYSERR 


• +3 
w 2 
„+2 
•5 

SYSERR 

-1 

DSTSW 1 
EXIT 

DSTSWl 

LINK 


BRKAC 

BREAK 



o 


u 
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o 











/MAGNETIC TAPE 

EXCERSISER 

INITIATION ROUTINE. 

o 

00456 

R 

000000 

A 

7 

RANINT 

0 




00457 

00460 

R 

750000 

A 


CLA 


/SET TEST NO. TO H FOR RANTST 

o 

R 

047514 

R 


0 AC 

TSTNQ# 

/SET CYCLE COUNT FOR END OF PASS, 


00461 

R 

207532 

R 


LAC 

CRANTST) 

/SET TEST DISTRIBUTION SWITCH IN 


00462 

R 

040115 

R 


DAC 

D I STS W 

/HSERV TO RAN TST. 

o 

00463 

R 

147446 

R 


DIM 

hancnt* 

/CLEAR NUMBER OF AVAILABLE 

00464 

R 

100513 

R 


JMS 

POLINT 

/HANDLERS, GO TO POLLING INITIALIZE. 

o 

00 465 

R 

100525 

R 

/ 

MINI,! 

JMS 

PQLHAN 

/POLL HANDLERS, EXIT +2 IF ACTIVE FND, 


00466 

R 

600507 

R 


JMP 

MINI, 2 

/EXIT +1 IF POLLING COMPLETE, 


00467 

R 

447446 

R 


ISZ 

HANCNT 

/COUNT THIS HANDLER. 

o 

00470 

R 

101242 

R 


JMS 

SETNXT 

/GO TO SET NXT FOR PARAMETER P.A. 


0047 1 

R 

1M0621 

R 


JMS 

GET 

/SET THIS HANDLER ACTIVE, 


00472 

R 

000131 

R 


.PSA 

MSKTAB 


o 

00473 

R 

740001 

A 


CM A 



00474 

R 

340161 

R 


TAG 

ACTIVE 



00475 

R 

040161 

R 


DAC 

ACTIVE 


o 

00476 

R 

101513 

R 


JMS 

CLRDIS 

/CLEAR DISTRIBUTION. 

00477 

R 

101 344 

R 


JMS 

SLNXGP 

/SELECT NEXT OPERATION FOR THIS 


00500 

R 

2 07446 

R 


LAC 

HANCNT 

/HANDLER, THEN CHECK FOR THIS ONE 

o 

00501 

R 

547521 

R 


SAD 

Cl) 

/8EING THE FIRST POLLED AND FOUND 

00502 

R 

741000 

A 


SKP 




00503 

R 

600465 

R 


JMP 

MINI,1 


o 

00504 

R 

207451 

R 


LAC 

HNDNUMtf 

/SET FIRST HANDLER AS "THIS" 

'w' 

00505 

R 

040065 

R 


DAC 

THSHAN 


o 

00506 

R 

600465 

R 

/ 

JMP 

MINI.! 

/RETURN FOR NEXT HANDLER. 
/POLLING COMPLETE 

00507 

R 

207446 

R 

MINI. 2 

LAC 

HANCNT 


00510 

R 

547524 

R 


SAD 

(0) 


o 

00511 

R 

602665 

R 


JMP 

ER20 

/NO HANDLERS AVAILABLE, EXIT 

00512 

R 

600651 

R 


JMP 

RANTS5 



.EJECT 


o 


o 


o 


o 

o 

o 

o 


u 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 



o 
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/HANDLER 

/ 

P0L1NT 

POLLING 

INITIATION 

ROUTINE 

o 

o 

00513 

R 

000000 

A 

0 



o 


00514 

R 

200032 

R 


LAC 

NOOP 

/SET TEST COMMAND AS NOOP, 



00515 

R 

047513 

R 


DAC 

TSTCMD# 



o 

00516 

R 

777767 

A 


LAW 

-11 

7SET POLLING COUNT, 

o 

00517 

R 

047461 

R 


0 AC 

P OLD ON# 




00520 

R 

750001 

A 


CLC 


7CLEAR CURRENT HANDLER 

o 

o 

00521 

R 

047451 

R 


DAC 

HNDNUM 

/NUMBER 

00522 

R 

207533 

R 


LAC 

(TRKTAB) 




00523 

R 

047510 

R 


DAC 

TKTBPTft 



o 

00524 

R 

620513 

R 


JMP* 

PQLINT 

/EXIT. 

o 






j 

/HANDLER 

! POLLING 

ROUTINE 



o 





7 




o 

00525 

R 

000000 

A 

PULHAN 

0 





00526 

R 

447461 

R 


ISZ 

POLDON 


o 

o 

00527 

R 

741000 

A 


SKP 



00530 

R 

620525 

R 


JMP* 

PQLHAN 




00531 

R 

207513 

R 

P0LH.7 

LAC 

TSTCMD 

/PICK UP TEST COMMAND (NOOP) 

o 

o 

00532 

R 

707326 

A 


MTLC 


/LOAD IT AND CHECK THAT THIS 

00533 

R 

707301 

A 


MTTR 


/IS READY, 



00534 

R 

600570 

R 


JMP 

POLH, 5 


o 

o 

00535 

R 

707352 

A 

POLH, 9 

MTRS 


/ CHECK HANDLER 

00536 

R 

040110 

R 


DAC 

5VSTAT 

/STATUS 



00537 

R 

507522 

R 


AND 

(1000003 

/ON BQT, 

o 

o 

00540 

R 

741200 

A 


SNA 



00541 

R 

600562 

R 


JMP 

POLH. 4 

/HANDLER NOT ON BQT, 



00542 

R 

200110 

R 


LAC 

S VST AT 

/CHECK HANDLER INDICATOR FOR 

o 

o 

00543 

R 

507534 

R 


AND 

(10) 

/SEVEN OR NINE TRACK, 

00544 

R 

741200 

A 


SNA 





00 5 45 

R 

600550 

R 


JMP 

. +3 



o 

00546 

R 

750001 

A 


CLC 



o 

00547 

R 

741000 

A 


SKP 





00 550 

R 

207535 

R 


LAC 

(177777) 



o 

00551 

R 

067510 

R 


DAC* 

TKT8PT 


o 

00552 

R 

100604 

R 


JMS 

INCRE 

/INCREMENT TEST COMMAND, 



00553 

R 

440525 

R 


ISZ 

POLHAN 

/NOT END, EXIT +1 TO LOG ANOTHER 


o 

00554 

R 

620525 

R 

7 

POLH , 2 

JMP* 

PULHAN 

/HANDLER ON LINE, 

o 


00555 

R 

200115 

R 

LAC 

DISTSW 

/SAVE DISTRIBUTION SW 


o 

00 556 

R 

047470 

R 


DAC 

5AVDIS# 

/UNTIL AFTER REWIND, 

o 

00557 

R 

207536 

R 


LAC 

(POLH. 6) 




00560 

R 

040115 

R 


DAC 

DISTSW 

/END OF REWIND 


o 

00561 

R 

600306 

R 


JMP 

EXIT 

/RETURN TO MONITOR VIA EXIT, I/O STARTED, 

o 


00562 

R 

207513 

R 

y 

POLH. 4 

LAC 

TSTCMD 

/HANDLER NOT AT BEGINNING OF 


o 

00563 

R 

507537 

R 


AND 

(700000) 

/TAPE, MAKE UP REWIND COMMAND, 

o 

00564 

R 

340044 

R 


TAP 

REWND1 

/TRANSMIT IT AND WAIT FOR 



00565 

R 

707326 

A 


MTLC 


/completion. 


o 

00566 

R 

707304 

A 


MTGO 


/TRANSMIT GO, 

o 

00567 

R 

600555 

R 


JMP 

POLH. 2 




.EJECT 


o 


o 


o 


o 


o 
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00570 

R 

707352 

A 

PDLH.5 

MTRS 



00571 

R 

040110 

R 


DAC 

S VST AT 


00572 

R 

507540 

R 


AND 

(200000) 


00573 

R 

740200 

A 


SZA 



00574 

R 

600577 

K 


JrlP 

P0LH.8 


00575 

R 

100604 

R 


JliS 

INCRE 

/INCREMENT TEST COMMAND 

00576 

R 

600526 

R 


JMP 

POLHAN+1 

/NOT DONE f LOOK AT NEXT HANDLER 

00577 

R 

100433 

R 

PQLH, 8 

JMS 

BREAK 


0 0 6 0 0 

R 

707301 

A 


HTTR 



00601 

R 

741000 

A 


SKP 



00602 

R 

600535 

R 


JMP 

P0LH.9 


0 0603 

R 

600577 

R 


JMP 

• ’•4 


00604 

R 

000000 

A 

INCRE 

0 



00605 

R 

447510 

R 


ISZ 

TKTBPT 


00606 

R 

207513 

R 


LAC 

TSTCMD 

/INCRE * TEST COMMAND, 

00607 

R 

347522 

R 


TAD 

(1 00000) 

/AND PULLING COUNTER AND CHECK 

00610 

R 

047513 

R 


DAC 

TSTCMD 


00 611 

R 

447451 

R 


ISZ 

HNPNUM 

/FOR END 

00612 

R 

740000 

A 


NOP 



00613 

R 

207451 

R 


LAC 

MNDNUM 


00614 

R 

620604 

R ‘ 


JMP* 

INCRE 

/SET HANDLER NO, IN AC, 

00615 

R 

000000 

A 

PQLH , 6 

0 


/RETURN FROM REWIND, RESTORE 

00616 

R 

207470 

R 


LAC 

SAVD1S 

/DISTRIBUTION S w„, RETURN TO 

00617 

R 

0 40H5 

R 


DAC 

0I8TSW 

/RETEST HANDLER, 

00620 

R 

600531 

R 


JMP 

PQLH • 7 



/ 

/GET SUBROUTINE 


00621 

R 

mmm 

A 

/ 

GET 

0 


/USED TO GET A VALUE FROM 

00622 

R 

360621 

R 


TAD* 

GET 

/A TABLE, ENTRY WITH INDEX, 

0O623 

R 

047445 

R 


DAC 

GET , 1# 

/BASE IS +1 ON CALL, 

00624 

R 

227445 

R 


LAC* 

GET, l 

/RETURN WITH VALUE, 

00625 

R 

440621 

R 


ISZ 

GET 


0M626 

R 

620621 

R 


JMP* 

GET 






/clear 

7 

CLOPTB 

HANDLER 

OPERATION TABLE, 


00627 

R 

000000 

A 

0 



00630 

R 

207541 

R 


LAC 

C-NUMHAN*NUMPAR) 

/SET OPP TAB LENGTH, 

0O631 

R 

047436 

R 


DAC 

CLO.l# 


00632 

R 

207542 

R 


LAC 

COPRTAB) 

/SET START OF OPP TAB. 

00633 

R 

047437 

R 


DAC 

CL0.2# 


00634 

R 

167437 

R 

CLOP • 1 

DZM* 

CL0.2 

/ZERO OPR TAB 

00635 

R 

447437 

R 


ISZ 

CL0.2 


00636 

R 

447436 

R 


ISZ 

CLP, 1 


00637 

R 

600634 

R 


JMP 

CLOP, 1 


00640 

R 

620627 

R 


JMP* 

•EJECT 

CLOPTB 





u 


0 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 





/********************************************************************* 






/RANDOM 

/ 

handler 

EXERCISER - TEST0. 

o 

00641 

R 

000000 

A 

RANTST 

0 



00642 

R 

4 4 7 4 6 5 

R 


154 

RANLEN /INCREMENT PASS COUNTER, 


00643 

R 

741000 

A 


SKP 


o 

00644 

R 

R 

600367 

R 


JMP 

TERMIN /DONE WITH TEST, 


00645 

100661 

R 


JM5 

CHKOPR /CHECK PREVIOUS OPERATION 


00646 

R 

101270 

R 

RANTS2 

JMS 

UPQTCT /UPDATE COUNTERS. 

o 

00647 

R 

101344 

R 

RANTS6 

J MS 

SLNXOP /SELECT NEXT OPER, FOR THIS HANDLER. 


00650 

R 

102104 

R 

RA.NT53 

JMS 

SLNXHN /SELECT NEW NEXT HANDLER. 


00651 

R 

101673 

R 

RANTS5 

JMS 

INTQPR /INITIATE OPERATION ON NEXT HANDLER. 

o 

00652 

R 

600306 

R 


JMP 

EXIT /EXIT. 






/**★**★ 

********* 

******************************************************** 






/SAVE TERMINATION PARAMETERS FOR THIS HANOLER AFTER OPERATION COMPLETE. 

o 

00653 

R 

000000 

A 

f 

saveop 

0 


o 

00654 

R 

220113 

R 


LAC* 

SYSCA /AND WORD COUNT AND SAVE, 

00655 

R 

04011 1 

R 


DAC 

SVGA 


00656 

R 

220114 

R 


LAC* 

SYSWC 

o 

00657 

R 

040112 

R 


DAC 

svwc 

00660 

R 

620653 

R 


JMP* 

SAVEOP 






/★★★a************************************************************* 






/CHECK 

OPERATION 

1 OF PREVIOUS COMMAND — 

o 

00661 

R 

000000 

A 

f 

CHKOPR 

0 

CHKPTR /GET CHECK ROUTINE POINTER FOR 

o 

00662 

R 

220072 

R 


LAC* 

00663 

R 

047424 

R 


DAC 

CKO. 1# /PREVIOUS COMMAND THEN CHECK. 


00664 

R 

127424 

R 


JMS* 

CKO.I /RESULTS OF THE LAST OPERATION. 

o 

00665 

R 

620661 

R 

i 

JMP* 

CHKOPR /EXIT, 





/ 

/CHECK 

READ COMMAND TERMINATION FOR ERRORS 

o 

00666 

R 

000000 

A 

CKSR2 

0 

/CHECK COMMON ERROR, THEN 

00667 

R 

101032 

R 


JMS 

CHKCOM /CHECK FOR CORRECT VALUES OF 


00670 

R 

200110 

R 


LAC 

S VST AT 

0 

00671 

R 

507543 

R 


AND 

C10000) 

00672 

R 

740200 

A 


SZA 



00673 

R 

600717 

R 


JMP 

CKSR.4 /END OF FILE 

o 

00674 

R 

200065 

R 


LAC 

THSHAN 

00675 

R 

347533 

R 


TAD 

(TRKTA8) 


006/6 

R 

047427 

R 


DAC 

CKS, 3# 

o 

00677 

R 

750001 

A 


CLC 


00700 

R 

343414 

R 


TAD 

8UF 1 


00701 

R 

740001 

A 


CM A 



00702 

R 

360073 

R 


TAP* 

CNTR 

o 

00703 

R 

527427 

R 


AND* 

CKS, 3 


00704 

R 

740200 

A 


SZA 


o 

00 705 

R 

602670 

R 


JMP 

ER23 

00706 

R 

750001 

A 


CLC 



00707 

R 

340112 

R 


TAD 

SVWC 

o 

00710 

R 

740001 

A 


CM A 


0071 1 

R 

347544 

R 


TAD 

(-BUFSIZ) 


00712 

R 

047426 

R 


DAC 

CKS, 2# 



o 


o 


o 



o 



o 
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o 

00713 

R 

343415 

R 


TAD 

BUF 1 + 1 




00714 

R 

527427 

R 


AND* 

CKS, 3 



o 

007 15 

R 

7 4020 0 

A 


SZA 



o 

00716 

R 

602666 

R 


JMP 

ER2 1 




00717 

R 

750001 

A 

CK$R,4 

CLC 


/WC AND CA AT TERMINATION, 

o 

0 

00720 

R 

340163 

R 


TAD 

maxbuf 

/FORM (CA+MAXBUF) AND SAVE* 

00721 

R 

740001 

A 


CM A 





00722 

R 

360070 

R 


TAD* 

CA 


o 

o 

00723 

R 

047430 

R 


DAC 

CKS2.1** 


00724 

R 

340112 

R 


TAD 

SVWC 

/FORM (CA + MAXBUF-'WC) AND CHECK 



00725 

R 

540111 

R 


SAP 

SVGA 

/FOR MATCH WITH FINAL CA, 

o 

0 

00726 

R 

741000 

A 


SKP 




00727 

R 

602656 

R 


JMP 

ERli 

/MISMATCH, WC/CA ERROR U* 



00730 

R 

20011 1 

R 


LAC 

•SVCA 

/CHECK FOR MATCH OF (CA+MAXBUF) 

o 

o 

00731 

R 

547430 

R 


SAD 

CKS2.1 

/WITH FINAL CA, 

00732 

R 

600743 

R 


JMP 

CKS2 , 2 

/MATCH, CHECK WC AND INCOR, REC, LEN. 



00733 

R 

200112 

R 


LAC 

SVWC 

/MISMATCH, WC SHOULD NOT EQUAL ZERO, 


o 

00734 

R 

741200 

A 


SNA 


/AND INCORRECT RECORD LENGTH BIT 

o 

00735 

R 

602657 

R 


JMP 

ER 12 

/SHOULD BE SET, 



00736 

R 

200110 

R 


LAC 

SVSTAT 



o 

00737 

R 

507545 

R 


AND 

Cl 000) 


o 

0074W 

R 

741200 

A 


SNA 





00741 

R 

602657 

R 


JMP 

ER 12 

/INCORRECT REC, LENGTH BIT NOT SET, 


o 

00742 

R 

600752 

R 

y 

JMP 

CKS2.3 


o 


00743 

R 

200112 

R 

/ 

CKS2.2 

LAC 

SVWC 

/WC SHOULD BE ZERO, AND 


o 

00744 

R 

740200 

A 


SZA 


/INCORRECT RECORD LENGTH SHOULD 

o 

00745 

R 

602657 

R 


JMP 

ER 12 

/NOT BE SET 


00746 

R 

200110 

R 


LAC 

SVSTAT 



0 

00747 

R 

507545 

R 


AND 

C 1 000 ) 

/RECORD LENGTH INCORRECT 

o 


00730 

R 

740200 

A 


SZA 




00751 

R 

602657 

R 


JMP 

ER 12 

/IS SET, ERROR, 


o 

00752 

R 

200110 

R 

CKS2,3 

LAC 

SVSTAT 


o 

00753 

R 

507543 

R 


AND 

(10000) 




00754 

R 

740200 

A 


SZA 




o 

00755 

R 

620666 

R 


JMP* 

CKSR2 

/END OF FILE 

o 

00756 

R 

207546 

R 


LAC 

CBUF1+1) 



00757 

R 

047425 

R 


DAC 

CKS,1# 



o 

00760 

R 

207426 

R 


LAC 

CKS, 2 


o 

00761 

R 

347547 

R 


TAD 

(2) 



00762 

R 

047426 

R 


DAC 

CKS, 2 



o 

00763 

R 

203414 

R 


LAC 

BUF1 


o 

00764 

R 

367425 

R 


TAD* 

CKS.l 



00765 

R 

447425 

R 


ISZ 

CKS, 1 



o 

0W766 

R 

447426 

R 


ISZ 

CKS. 2 


o 

00767 

R 

600764 

R 


JMP 

«-3 



00770 

R 

740001 

A 


CM A 




o 

00771 

R 

347521 

R 


TAD 

Cl) 


o 

00772 

R 

367425 

R 


TAD* 

CKS, 1 




00773 

R 

327427 

R 


AND* 

CKS, 3 



o 

0077 4 

R 

047444 

R 


DAC 

ERR, 22# 


o 

00775 

R 

740200 

A 


SZA 




00776 

R 

602667 

R 


JMP 

ER22 

/CHECK SUM ERROR 



o o 



o 
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007/7 R 620666 R 


JMP* CKSR2 
• EJECT 


/NOT SET t NO ERROR EXIT 


o 


o 
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/CHECK 

j 

WRITE 

command termination for errors. 

01000 

R 

000000 

A 

r 

CKSR4 

0 



01001 

R 

101032 

R 


JMS 

CHKCOM 

/CHECK COMMON ERRORS THEN 

01002 

R 

750001 

A 


CLC 


/CHECK FOR CORRECT VALUES OF 

01003 

R 

36007 1 

R 


TAD* 

wc 

/WC AND CA AT TERMINATION* 

01004 

R 

740001 

A 


CM A 



01005 

R 

360070 

R 


TAD* 

CA 

/FORM (CA+WC) AND MATCH AGAINST 

01006 

R 

540111 

R 


SAD 

SVGA 

/FINAL CA, 

01007 

R 

741000 

A 


SKP 



01010 

R 

602660 

R 


JMP 

ER 13 

/MISMATCH, WC/CA ERROR 4, 

01011 

R 

200112 

R 


LAC 

svwc 

/MATCH, CHECK FDR WC=i0. 

01012 

R 

740200 

A 


SZA 



01013 

R 

602661 

R 


JMP 

ER 1 4 

/WC NOT=0. ERROR 5. 

01014 

R 

621000 

R 


JMP* 

CKSR4 

/NO ERROR, EXIT, 





/ 

/CHECK 

WRITE 

END OF FILE COMMAND TERMINATION FOR ERRORS. 

01015 

R 

000000 

A 

f 

CKSR5 

0 



01016 

R 

101032 

R 


JMS 

CHKCOM 

/CHECK COMMON ERRORS THEN, 

01017 

R 

200110 

R 


LAC 

S VST AT 

/GET STATUS REGISTER AND CHECK 

01020 

R 

507543 

R 


AND 

(010000) 

/THAT END OF FILE BIT WAS SET, 

01021 

R 

741200 

A 


SNA 



01022 

R 

602662 

R 


JMP 

ER 15 

/EOF BIT NOT SET, ERROR 5, 

01023 

R 

621015 

R 


JMP* 

CKSR5 

/NO ERROR EXIT, 





j 

/CHECK 

SPACE 

FORWARD COMMAND 

TERMINATION FOR ERRORS, 

01024 

R 

000000 

A 

CKSR6 

0 



01025 

R 

101032 

R 


JMS 

CHKCOM 

/CHECK COMMON ERRORS THEN, 

01026 

R 

621024 

R 


JMP* 

CKSR6 

/EXIT. 





/ 

/CHECK 

SPACE 

REVERSE COMMAND 

FOR TERMINATION ERRORS, 

01027 

R 

000000 

A 

CKSR7 

0 



01030 

R 

101032 

R 


JMS 

CHKCOM 

/CHECK COMMON ERRORS THEN 

01031 

R 

621027 

R 


JMP* 

CKSR7 

/EXIT 





/ 

/CHECK 

OPERATION FOR COMMON 

ERROR ITEMS 

01032 

R 

000000 

A 

CHKCOM 

0 



01033 

R 

200110 

R 


LAC 

S VST AT 

/GET 3AVED STATUS AND 

01034 

R 

740100 

A 


SMA 



01035 

R 

601045 

R 


JMP 

CHKC.l 


01036 

R 

507550 

R 


AND 

(40000) 

/CHECK FOR IULEGAL COMMAND. 

01037 

R 

741200 

A 


SNA 



01040 

R 

601045 

R 


JMP 

CHKC.l 

/NOT ILLEGAL 

01041 

R 

200110 

R 


LAC 

SVSTAT 


01042 

R 

507551 

R 


AND 

(137600) 


01043 

R 

741200 

A 


SNA 



01044 

R 

602650 

R 


JMP 

ER03 

/NOT FIRST COMMAND, ILLEGAL, 

01045 

R 

200110 

R 

/ 

CHKC.l 

LAC 

SVSTAT 
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01046 

R 

520076 

R 


AND* 

NPNSEN 

/CHECK NONSENSE BITS FOR THIS 

01047 

R 

740200 

A 


SZA 


/COMMAND. 

01060 

R 

602652 

R 


JMP 

ER05 

/SOME ON, ERROR 5. 

01061 

R 

200110 

R 


LAC 

S VST AT 

/CHECK ERROR FLAG, IF NOT 

01062 

R 

740100 

A 


SM A 



01063 

R 

601057 

R 


JMP 

CHKC.2 


01054 

R 

507551 

R 


AND 

(137600) 

/IF ON CHECK THAT SOME CAUSE 

01055 

R 

741200 

A 


SNA 


/BITS ARE ON. 

01036 

R 

602651 

R 

i 

JMP 

ER04 

/NONE ON, ERROR 4. 

01057 

R 

101064 

R 

/ 

CHKC.2 

jus 

PARDRL 

/SOME ON, CHECK BAD TAPE, ETC, 

01060 

R 

601105 

R 


JMP 

ER10.1 

/DATA REQUEST LATE ERROR 

01061 

R 

602653 

R 


JMP 

ER06 

/BAD TAPE ERROR 

01062 

R 

602654 

R 


JMP 

ER07 

/PARITY ERROR 

01063 

R 

621032 

R 


JMP* 

CHKCQM 

/NO ERROR, EXIT, 





/PARITY 

j 

ERROR, 

DATA REQUEST 

LATE, AND BAD TAPE ERRORS. 

01064 

R 

0 0 0 0 0 0 

A 

/ 

PARDRL 

0 


/CHECKS SAVE STATUS REGISTER ERROR 

01065 

R 

200110 

R 


LAC 

S VST AT 

/BITS AND IF BAD TAPE ERROR 

01066 

R 

507552 

R 


ANU 

(400) 

/RETURNS CALL+2? IF PARITY 

01067 

R 

740200 

A 


SZA 


/ERROR, CALL+3? IF DATA 

01070 

R 

621064 

R 


JMP* 

PARDRL 

/REQUEST LATE ERROR, CALL 

01071 

R 

200110 

R 


LAC 

S VST AT 


01072 

R 

507526 

R 


AND 

(200) 

/+1 AND IF NO ERROR, CALL 

01073 

R 

740200 

A 


SZA 


/ + 4, 

01074 

R 

601103 

R 


JMP 

PARD.2 


01075 

R 

200110 

R 


LAC 

SVSTAT 


01076 

R 

507553 

R 


AND 

(20000) 


01077 

R 

740200 

A 


SZA 



01100 

R 

74J.000 

A 


SKP 



01101 

R 

441064 

R 


ISZ 

PARDRL 


01102 

R 

441064 

R 


ISZ 

PARDRL 


01103 

R 

441064 

R 

PARC. 2 

ISZ 

PARDRL 


01104 

R 

621064 

R 


JMP* 

PARDRL 



.EJECT 
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01105 

R 

200003 R 

ER10.1 LAC 

U 0 D S W 1 3 

01106 

R 

740100 A 

SNA 



01107 

R 

602655 

R 


/ 

JNP 

ER 10 

01110 

R 

101126 

R 


j 

JNS 

SAVPLD 

01111 

R 

207554 

R 


LAC 

CDOOVER1 

01112 

R 

040115 

R 


DAC 

DISTSW 

01113 

R 

102543 

R 


JNS 

TRNCMO 

01114 

R 

603044 

R 


JMP 

BPTAP3 

01115 

R 

600306 

R 


JNP 

M 

EXIT 

01116 

R 

000000 

A 

DOQVER 

/ 

0 


01117 

R 

207467 

R 


LAC 

SAVCMDtf 

01120 

R 

060O67 

R 


DAC* 

CND 

01121 

R 

207471 

R 


LAC 

5AVWC3 

01122 

R 

060071 

R 


DAC* 

WC 

01123 

R 

207470 

R 


LAC 

SAVDIS 

01124 

R 

040115 

R 


DAC 

DISTSW 

01125 

R 

600651 

R 


JNP 

j 

RANTS5 

01126 

R 

mmm 

A 

SAVQLO 

r 

0 


01127 

R 

220067 

R 


LAC* 

CND 

01130 

R 

047467 

R 


DAC 

SAVCMP 

01131 

R 

220071 

R 


LAC* 

WC 

01132 

R 

047471 

R 


DAC 

SAVWC 

01133 

R 

230041 

R 


LAC 

SPORE V 

01134 

R 

360075 

R 


TAD* 

DENPAK 

01135 

R 

360077 

R 


TAD* 

HANNUM 

01136 

R 

060067 

R 


DAC* 

CND 

01137 

R 

777777 

A 


LAW 

~ 1 

01140 

R 

060071 

R 


DAC* 

WC 

01141 

R 

200115 

R 


LAC 

DISTSW 

01142 

R 

047470 

R 


DAC 

SAVOIS 

01143 

R 

621126 

R 


JNP* 

SAVOLD 


.EJECT 


/CHECK TO SEE IF OPERATOR WANTS TO 

/IGNORE DATA LATE ERRORS 6Y SPACE REVERSE ONE 

/RECORD AND THEN TRY THE FAILING OPERATION AGAIN. 

/DON t T RETRY. JUST REPORT THE ERROR. 
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0 

1144 

R 

101126 

R 

0 

1145 

R 

147511 

R 

0 

1146 

R 

200110 

R 

0 

1147 

R 

047503 

R 

0 

1150 

R 

777773 

A 

0 

1151 

R 

047512 

R 

0 

1152 

R 

207555 

R 

0 

1153 

R 

040115 

R 

0 

1154 

R 

102543 

R 

0 

1155 

R 

740000 

A 

0 

1156 

R 

600306 

R 

0 

1157 

R 

000000 

A 

0 

1160 

R 

207556 

R 

0 

1161 

R 

040115 

K 

0 

1162 

R 

207467 

R 

0 

1163 

R 

060067 

R 

0 

1 164 

R 

207471 

R 

0 

1165 

R 

060071 

R 

0 

1166 

R 

102543 

R 

0 

1167 

R 

740000 

A 

0 

1170 

R 

600306 

R 

0 

1171 

R 

000000 

A 

0 

1172 

R 

200110 

R 

0 

1173 

R 

507552 

R 

0 

1174 

R 

740200 

A 

0 

1175 

R 

601224 

R 

0 

1176 

R 

200110 

R 

0 

1177 

R 

5D7526 

R 

0 

1200 

R 

740200 

A 

0 

1201 

R 

602653 

R 

0 

1202 

R 

200110 

R 

0 

1203 

R 

507553 

R 

0 

1204 

R 

740200 

A 

0 

1205 

R 

447511 

R 

0 

1206 

R 

447512 

R 

0 

1207 

R 

741000 

A 

0 

1210 

R 

601230 

R 

0 

1211 

R 

200041 

R 

0 

1212 

R 

360075 

R 

0 

1213 

R 

360077 

R 

0 

1214 

R 

060067 

R 

0 

1215 

R 

777777 

A 

0 

1216 

R 

06007 1 

R 

0 

1217 

R 

207555 

R 

0 

1220 

R 

040115 

R 

0 

1221 

R 

102543 

R 

0 

1222 

R 

740000 

A 

0 

1223 

R 

600306 

R 


EK07.1 JMS 
DZH 
LAC 
DAC 
LAW 
DAC 
LAC 
DAC 
JMS 
NQP 
JMP 
/ 

FIVTRY 0 

LAC 

DAC 

LAC 

DAC* 

LAC 

DAC* 

JMS 

NOP 

JMP 

/ 

F X V « 1 0 

LAC 

AND 

SZA 

JMP 

LAC 

AND 

SZA 

JMP 

LAC 

AND 

SZA 

ISZ 

ISZ 

SKP 

JMP 

FIV.2 LAC 
TAP* 
TAD* 
DAC* 
LAW 
DAC* 
LAC 
DAC 
JMS 
NOP 
JMP 

.EJECT 


SaVOLD 

TGTPAR# 

SVSTAT 

SSVTAT# 

** 5 

TGTRTYf* 

C FIVTRY) 

DISTSW 

TRNCMD 

EXIT 


(FIY.n 

DISTSW 

5AVCMD 

CMD 

SAVWC 

wc 

TRNCMD 

EXIT 


S VST AT 
(400) 

OLRETY 

SVSTAT 

(2003 

ER06 

SVSTAT 

( 20000 ) 

TPTPAR 

TOTRTY 

RPTER7 

SPCREV 

DENPAR 

HANNUM 

CMD 

" 1 

WC 

(FIVTRY) 

DISTSW 

TRNCMD 

EXIT 



o 
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o 

o 

01224 

R 

200003 

R 

DLRETY 

LAC 

UODSW+3 


o 


01225 

R 

740100 

A 


SMA 




o 

01226 

R 

602655 

R 


JMP 

ER 10 


o 

01227 

R 

501211 

R 


JMP 

FIV.2 



o 

01230 

R 

207511 

R 

RPTER7 

J 

LAC 

TOTPAR 


o 

01231 

R 

744020 

A 


RCR 




01232 

R 

742020 

A 


RTR 




o 

01233 

R 

740020 

A 


RAR 



o 

01234 

R 

247557 

R 


XOR 

(7) 




01235 

R 

047443 

R 


DAC 

ERN.l 



o 

01236 

R 

207470 

R 


LAC 

SAVDIS 


o 


01237 

R 

040115 

R 


DAC 

DISTSW 




01240 

R 

103112 

R 


J MS 

RE3PIJT 



o 

01241 

R 

602725 

R 


JMP 

i 

ERR2.1 


o 






/SET NEXT OPERATION TABLE 

POINTERS 


o 





/ 




o 

01242 

R 

000000 

A 

SETNXT 

O 


/ENTRY WITH HANDLER NUMBER. 



01243 

R 

040066 

H 


DAC 

CURHAN 



o 

01244 

R 

101263 

R 


JMS 

MPY 

/multiply handler NO. BY NO. 

o 

01245 

R 

347542 

R 


TAD 

CQPRTAB) 

/OF ENTRIES PER HANDLER AND 


01246 

R 

040067 

R 


DAC 

PARTAB 

/SET FIRST POINTER. 


o 

01247 

R 

207560 

R 


LAC 

(PARTAB + U 

/GET NXT P . A * LOC. AND SET. 

o 

01250 

R 

047474 

R 


DAC 

SET.l# 




01251 

R 

777762 

A 


LAW 

-MUMP AR+2 

/GET NUM. OF PARAMETERS 


o 

01252 

R 

047475 

R 


DAC 

SET. 23 


o 

01253 

R 

200067 

R 


LAC 

PARTAB 

/PICK UP FIRST POINTER, INCREMENT 

o 

01254 

R 

347521 

R 

SETN.l 

TAD 

Cl) 

/FOR NEXT ENTRY 

o 

01255 

R 

067474 

R 


DAC* 

SET.l 

/AND P . A , 


01256 

R 

447474 

R 


I3Z 

SET.l 



o 

01257 

R 

447475 

R 


ISZ 

SET. 2 

/CONTINUE UNTIL DONE, 

o 

01260 

R 

601254 

R 


JMP 

SETN.l 



01261 

R 

200066 

R 


LAC 

CURHAN 

/RESTORE INBOUND HANDLER NO, 


o 

01262 

R 

621242 

R 

J 

JMP* 

SETNXT 

/EXIT, 

o 






/MULTIPLY BY 16 

UTILITY ROUTINE. 


o 





/ 




o 

01263 

R 

000000 

A 

MPY 

0 


/ENTRY WITH ARGUMENT IN AC, 


01264 

R 

744000 

A 


CLL 


/EXIT WITH PRODUCT IN AC. 


o 

01265 

R 

742010 

A 


RTL 



o 

01266 

R 

742010 

A 


RTL 




01267 

R 

621263 

R 


J M P * 

MPY 



o 






.EJECT 



o 

o 









o 

o 









o 

o 









o 

o 









o 


o 



o 
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♦ I**************************************** 

o 





/************************* 







/UPDATE 

> 

POSITION 

COUNTERS 

BASED ON PREVIOUS COMMAND EXECUTED. 

O 

o 

01270 

R 

000000 

A 

/ 

UPOTCT 

0 





01271 

R 

220067 

R 


LAC* 

CMD 

/GET PREVIOUS COMMAND AND 

o 

o 

01272 

R 

507561 

R 


AND 

(7000) 

/CHECK FOR TYPE, 

01273 

R 

547561 

R 


SAD 

(7000) 




01274 

R 

601306 

R 


JMP 

UPDT.I 

/WAS A BACK SPACE. 

o 

o 

01275 

R 

547562 

R 


SAD 

(6000) 


01276 

R 

601321 

R 


JMP 

UPDT, 2 

/WAS A FORWARD SPACE, 



01277 

R 

547563 

R 


SAD 

(2000) 


o 

o 

01300 

R 

741000 

A 


SKP 




01301 

R 

601337 

R 


JMP 

UPDT, 3 

/WAS A WRITE QR WRITE EOF, 



01302 

R 

460073 

R 


ISZ* 

CNTR 

/WAS A READCCNTR+1=CNTR) 


o 

01303 

R 

740000 

A 


NOP 



o 

01304 

R 

220073 

R 


LAC* 

CNTR 




01305 

R 

601331 

R 


JMP 

UPDT. 4 



o 





/ 



/WAS A BACK SPACE, 

o 

01306 

R 

750001 

A 

UPDT.I 

CLC 




01307 

R 

340112 

R 


TAD 

SVWC 

/FORMCCNTR^CINIT, WC-FINAL WC.)) 


o 

01310 

R 

740001 

A 


CM A 


/SET IN CNTR. 

o 

01311 

R 

360071 

R 


TAD* 

WC 




01312 

R 

740300 

A 


SZAiSMA 



o 

o 

01313 

R 

740040 

A 


HLT 



01314 

R 

360073 

R 


TAD* 

CNTR 




01315 

R 

060073 

R 


DAC* 

CNTR 



o 

01316 

R 

741100 

A 


SPA 



o 

01317 

R 

749040 

A 


HLT 




o 

01320 

R 

621270 

R 

/ 

JMP* 

UPPTCT 

/EXIT 

o 

01321 

R 

750001 

A 

UPDT , 2 

CLC 


/WAS A FORWARD SPACE, 



01322 

R 

360071 

R 


TAD* 

WC 

/FORM CNTR+CINIT. WC-FINAL WC) 

o 

o 

01323 

R 

740001 

A 


CM A 


/SET IN CNTR. 

01324 

R 

340112 

R 


TAD 

3VWC 




01325 

R 

741100 

A 


SPA 




o 

01326 

R 

740040 

A 


HLT 



c 

01327 

R 

360073 

R 


TAD* 

CNTR 




01330 

R 

060073 

R 


DAC * 

CNTR 


o 

o 

01331 

R 

740001 

A 

UPDT , 4 

CM A 



01332 

R 

347521 

R 


TAD 

Cl) 




01333 

R 

360074 

R 


TAD* 

CNTW 


o 

o 

01334 

R 

741100 

A 


SPA 



01335 

R 

740040 

A 


HLT 




o 

01336 

R 

621270 

R 

/ 

JMP* 

UPPTCT 

/WAS A WRITE OR WRITE END OF FILE, 

o 

01337 

R 

220073 

R 

UPDT ,3 

LAC* 

CNTR 



01340 

R 

347521 

R 

TAD 

(1) 

/INCREMENT CNTR AND SET 


o 

01341 

R 

060073 

R 


DAC* 

CNTR 

/IN BOTH CNTR AND CNfW, 

o 

01342 

R 

060074 

R 


DAC* 

CNTW 




01343 

R 

621270 

R 


JMP* 

UPDTCT 




, t£ JECT O 


o 


o 


o 


o 


o 


U 



o 
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o 

o 

o 

o 

.o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


/*****»*.*********..*..***********************************.*********.*** ° 






/SELECT 

/ 

NEXT 

OPERATION FDR 

THIS HANDLER TO PERFORM, 

o 

01344 

R 

000000 

A 

SLNXGP 

0 




01345 

R 

200110 

R 


LAC 

SVSTAT 

/CHECK FOR HANDLER AT 

o 

01346 

R 

507564 

R 


AND 

(4000) 

/END OF TAPE. 

01347 

R 

741200 

A 


SNA 




01350 

R 

601353 

R 


JMP 

SLNQ , 0 

/HQ, NORMAL SELECTION, 


01351 

R 

101 505 

R 


jns 

GENRWD 

/YES, GENERATE REWIND COMMAND, 

o 

01352 

R 

621344 

R 


JMP* 

SLNXDP 

/EXIT, 


01353 

R 

200110 

R 

SINQ.0 

LAC 

SVSTAT 

/CHECK FOR 80T MARKER, 

o 

01354 

R 

507522 

R 


AND 

(100000) 



0 1355 

R 

740200 

A 


SZA 



o 

01356 

R 

601467 

R 


JriP 

SLN0.8 


01357 

R 

220073 

R 


LAC* 

CNTR 

/CHECK POSITION COUNTER FOR 0, 


01360 

R 

741200 

A 


SNA 


/0 MEANS BOT, 


01361 

R 

601467 

R 


JMP 

SLNQ, a 

/IS ZERO, 

o 

01362 

R 

560074 

R 


SAD* 

CNT'W 

/NOT ZERO, CHECK CNTR=CNTW, 


01363 

R 

601473 

R 

/ 

JMP 

SLNQ * 9 

/ARE EQUAL, 

o 

01364 

R 

101624 

R 

SLNQ.1 

JMS 

rangen 

/NEITHER, ANY IMPLEMENTED 


01365 

R 

507557 

R 


AND 

C7) 

/COMMAND FITTING DISTRIBUTION IS 


01366 

R 

047476 

R 


DAC 

S L N » 1 # 

/LEGAL* GET COMMAND NO, AND 

o 

01367 

R 

5 4 7 5 6 5 

R 


SAD 

(4) 



01370 

R 

601364 

R 


JMP 

SLNQ , 1 



01371 

R 

547566 

R 


SAP 

(5) 


o 

01372 

R 

60,1364 

R 


JMP 

SLNQ • 1 


01373 

R 

101537 

R 


JMS 

CMDOIS 

/CHECK IF DISTRIBUTION OK* 


01374 

R 

601364 

R 


JMP 

SLNO , 1 

/NOT OR, GET ANOTHER NUMBER. 

o 

01375 

R 

100621 

R 

SLNQ.7 

JMS 

GET 

/OK, GET COMMAND SKELETON 

01376 

R 

000032 

R 


* PS A 

CMDSKL 

/FOR THIS ONE AND 


01377 

R 

047477 

R 


DAC 

SLN* 2# 

/SAVE IT, 

o 

01400 

R 

207476 

R 


LAC 

SLN,1 

/GET COMMAND NO, AGAIN 


01401 

R 

547521 

R 


SAD 

Cl) 

/OPES FIT, CHECK FOR REWIND, 

o 

01402 

R 

741000 

A 


SKP 



01403 

R 

601406 

R 


JMP 

SIND, 2 



01404 

R 

101505 

R 


JMS 

GENRWD 

/IS REWIND, GEN, COMMAND AND EXIT, 

o 

01405 

R 

621344 

R 


JMP* 

SLNXOP 


01406 

R 

2 07477 

R 

SLNQ, 2 

LAC 

SLN.2 

/NOT REWIND, GET COMP, SKELETON, 


01407 

R 

360077 

R 


TAD* 

HANNUM 

/OR IN HANDLER NUMBER AND 

o 

01410 

R 

360075 

R 


TAP* 

DENPAR 

/CURRENT DESITY AND PARITY. 


01411 

R 

060067 

R 

/ 

DAC* 

CMD 

/SAVE IN COMMAND 

o 

01412 

R 

101624 

R 

S L N 0 , 3 

JMS 

RANGEN 

/GET RANDOM NUMBER FOR 


01413 

R 

5 0 7 5 6 7 

R 


AND 

(77) 

/possible WC, 

o 

01414 

R 

741200 

A 


SNA 



01415 

R 

601412 

R 


JMP 

• "3 

/ZERO, DON * T USE, 


01416 

R 

047500 

R 


DAC 

SLN.3S 

/SAVE, 


01417 

R 

207476 

R 


LAC 

SLN.l 

/GET COMMAND NUMBER 

o 

01420 

R 

547570 

R 


SAD 

(6) 

/AND CHECK FOR SPACE FORWARD 


01421 

R 

601434 

R 


JMP 

SLNDlW 

/OR REVERSE, 



o 



o 


o 
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01422 

R 

547557 

R 


SAP 

C 7) 



01423 

R 

741000 

A 


SKP 




01424 

R 

60 1456 

R 


JMP 

SLN0,6 


/NEITHER CONTINUE , 

01425 

R 

750001 

A 


CLC 



/SPACE BACKWARD, 

01426 

R 

347500 

R 


TAP 

SLN.3 


/CHECK THAT WC POES NOT 

01427 

R 

740001 

A 


CM A 



/EXCEED CNTR, 

01430 

R 

360073 

R 


TAP* 

cntr 



01431 

R 

741100 

A 


SPA 




01432 

R 

601412 

R 


JMP 

SLNQ.3 


/EXCEEDS CNTR, GET ANOTHER WC, 

01433 

R 

601451 

R 


JMP 

SLNQ . 4 


/OK, CONTINUE, 

01434 

R 

207500 

R 

SLNQ10 

LAC 

SLN.3 


/SET WC MOD 8 

01435 

R 

507557 

R 


AND 

C7) 



01436 

R 

347521 

R 


TAP 

Cl) 



01437 

R 

047500 

R 


DAC 

SLN.3 



01440 

R 

750001 

A 


CLC 



/SPACE FORWARD, MAKE SURE 

01441 

R 

360074 

R 


TAP* 

cntw 


/WC DOES NOT EXCEED: 

01442 

R 

740001 

A 


CM A 



/CCNTW-CNTR) 

01443 

R 

360073 

R 


TAP* 

CNTR 



01444 

R 

347500 

R 


TAD 

SLN, 3 



01445 

R 

740001 

A 


CM A 




01446 

R 

347521 

R 


TAP 

Cl) 



01447 

R 

741 100 

A 


SPA 




01450 

R 

601412 

R 


JMP 

SLNQ p 3 


/XT DOES, GET ANOTHER, 

01451 

R 

750001 

A 

SLNQ.4 

CLC 



/OK, GET WC, COMPLIMENT 

01452 

R 

347500 

R 


TAP 

SLN.3 



01453 

R 

740001 

A 


CM A 




01454 

R 

060071 

R 


DAC* 

VIC 


/AND SET IN WORD COUNT, 

01455 

R 

160070 

R 

y 

0 Z M * 

CA 


/CLEAR CA, 

01456 

R 

207476 

R 

/ 

SLNG , 6 

LAC 

SLN, 1 


/GET CHECK POINTER FOR 

01457 

R 

100621 

R 


JMS 

GET 


/THIS COMMAND. 

01460 

R 

000055 

R 


,03 a 

CHKTAB 



01461 

R 

060072 

R 


DAC* 

CHKPTR 



01462 

R 

207476 

R 


LAC 

SLN, 1 


/GET NONSENSE BIT MASK, 

01463 

R 

100621 

R 


JMS 

GET 


/AND PUT AWAY FOR THIS COMMAND . 

01464 

R 

000116 

R 


* PS A 

NQNTAB 



01465 

R 

060076 

R 


D AC* 

NONSEN 



01466 

R 

621344 

R 


JMP* 

SLNXOP 


/EXIT, 





/CNTRa 

ZERO--- 

— TAPE AT 

BQT . 


01467 

R 

740000 

A 

SLW0.6 

NOP 



/CHECK BOT FLAG, SHOULD 

014 70 

R 

101513 

R 


JMS 

CLRPIS 


/CLEAR COMMAND DISTRIBUTION CNTRS 

01471 

R 

102255 

R 


JMS 

GENWRT 


/GENERATE A WRITE 

01472 

R 

621344 

R 


JMP* 

SLNXOP 







/ C N T R = 

C N T W - - - 

--tape AT 

end of 

WRITTEN RECORDS, 

01473 

R 

101524 

R 

SLN0.9 

JMS 

R ANGEN 


/GET NEXT COMMAND AND 

01474 

R 

507557 

R 


AND 

(7) 


/CHECK FOR READ OR SPACE 

01475 

R 

047476 

R 


DAC 

sln,i 


/FORWARD, eliminate these. 

01476 

R 

547570 

R 


SAP 

(6) 



01477 

R 

601473 

R 


JMP 

SLNQ, 9 


/SPACE FORWARD, REJECT 

01500 

R 

547547 

R 


SAP 

(2) 



01501 

R 

601473 

R 


JMP 

SLNQ * 9 


/read, reject. 

01502 

R 

101537 

R 


JMS 

CMPDIS 


/CHECK DISTRIBUTION OF COMMANDS, 

01503 

R 

601473 

R 


JMP . 

SLNQ , 9 


/NOT OK, 



o 
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o 
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o 

o 

o 
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o 

o 

o 
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EITHER AT END OF TAPE OR BY SELECTION 

o 





/GENERATE A REWIND COMMAND 



01505 

R 

000000 

A 

GENRWD 

0 




o 

01506 

R 

200033 

R 


LAC 

REWIND 

/SET REWIND COMMAND AS NEXT 

o 

01507 

R 

360077 

R 


TAD* 

HANNUM 

/COMMAND WHEN THIS HANDLER SELECTED. 



0151 0 

R 

060067 

R 


QAC* 

CMD 

/CLEAN UP OPR TAB FOR THIS HANDLER 


o 

01511 

R 

101513 

R 


JMS 

CLRPIS 


o 

01512 

R 

621505 

R 

/ 

/clear 

JMP* 

GENRWD 



o 





handler 

PARAMETERS, 

OCCURS ON REWIND AND AT BQT. 

o 


01513 

R 

000000 

A 

y 

CLRPIS 

0 


/CLEAR HANDLER PARAMETERS, 


o 

01514 

R 

160070 

R 


DZM* 

CA 


o 

01515 

R 

160071 

R 


DZM* 

WC 




01516 

R 

160073 

R 


DZM* 

CNTR 


0 

o 

01517 

R 

160074 

R 


DZM* 

CNTH 


01520 

R 

207571 

R 


LAC 

(40300) 




01521 

R 

060075 

R 


DAC* 

DENPAR 



o 

01522 

R 

160076 

R 


DZM* 

NONSEN 


o 

01523 

R 

160100 

R 


DZM* 

CMDCNT 

/CLEAR COMMAND COUNT, 



01524 

R 

200126 

R 


LAC 

EOFCON 

/SET NEW EOF DISTRIBUTION COUNTER, 


o 

01525 

R 

060101 

R 


DAC* 

EOFCNT 


o 


01526 

R 

207545 

R 


LAC 

(1000) 




01527 

R 

060104 

R 


DAC* 

SPFCNT 



o 

01530 

R 

207545 

R 


LAC 

(1000) 


o 

01531 

R 

060105 

R 


DAC* 

SPBCNT 




01532 

R 

200066 

R 


LAC 

CURHAN 



o 

01533 

R 

100621 

R 


JMS 

GET 


o 

01534 

R 

000045 

R 


.PSA 

HANDNM 




01535 

R 

060077 

R 


DAC* 

HANNUM 


o 

o 

01536 

R 

621513 

R 


JMP* 

CLRDIS 


o 





y 

/CHECK 

/ 

SELECTED 

COMMAND FOR 

PROPER DISTRIBUTION, 

o 

01537 

R 

00000 0 

A 

CMDD IS 

0 





01540 

R 

047440 

R 


DAC 

CMD, 1# 

/SAVE COMMAND NUMBER. 


o 

01541 

R 

547521 

R 


SAD 

Cl) 

/CHECK FOR REWIND 

o 

01542 

R 

601556 

R 


JMP 

CMDD • 1 




01543 

R 

547547 

R 


SAD 

(2) 

/READ 

o 

o 

01544 

R 

601562 

R 


JMP 

CMDD, 2 


01545 

R 

547565 

R 


SAD 

(4) 

/WRITE 



01546 

R 

601562 

R 


JMP 

CMDD, 2 


o 

o 

01547 

R 

547566 

R 


SAD 

(5) 

/WRITE EOF 

01550 

R 

601566 

R 


JMP 

CMDD, 5 




01551 

R 

5 4 7 5 7 0 

R 


SAD 

(6) 

/FORWARD SPACE 


o 

01552 

R 

601600 

R 


JMP 

CMDD, 6 


o 

01553 

R 

547557 

R 


SAP 

(7) 

/BACKWARD SPACE 



01554 

R 

601612 

R 


JMP 

CMDD, 7 



o 

01555 

R 

621537 

R 

/ 

CMDD , 1 

JMP* 

CMDD IS 


o 


01556 

R 

220100 

R 

LAC* 

CMDCNT 

/CHECK REWIND COUNT, ALLOWS 


o 

01557 

R 

347572 

R 


TAD 

(-10000) 

/REWIND ONLY AFTER 4K WRITTEN 

o 

01560 

R 

741100 

A 


SPA 


/RECORDS ARE ON TAPE. 



01561 

R 

621537 

R 


JMP* 

CMDDIS 

/NOT ENOUGH-EXIT 



O o 


o 


o 


o 
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1562 

R 

460100 

R 

/ 

CMDO , 2 

ISZ* 

CMDCNT 

/ENOUGH-EXIT 

1563 

R 

207440 

R 


LAC 

CMD, 1 


1564 

R 

441537 

R 


ISZ 

CMDDIS 


1565 

R 

621537 

R 

/ 

JMP* 

CMDQIS 


1566 

R 

750001 

A 

/ 

CMDO , 5 

CLC 


/WRITE EOF, CHECK END OF FILE 

1567 

R 

360100 

R 


TAD* 

CMDCNT 

/COUNTER AGAINST COMMAND 

1570 

R 

74000 1 

A 


CM A 


/COUNT, 

1571 

R 

360101 

R 


TAD* 

EOFCNT 


1572 

R 

740100 

A 


SMA 



1573 

R 

621537 

R 


JMP* 

CMQDIS 

/EXIT-NUT ENOUGH 

1574 

R 

220101 

R 


LAC* 

EOFCNT 

/ENOUGH«SET NEW COUNT. 

1575 

R 

340126 

R 


TAP 

EOFCON 


1576 

R 

060101 

R 


DAC* 

EOFCNT 


1577 

R 

601562 

R 


JMP 

CMDO, 2 


1600 

R 

750001 

A 

/ 

CM0D.6 

CLC 


/SPACE FORWARD, CHECK SPACE 

1601 

R 

360100 

R 


TAD* 

CMDCNT 

/FORWARD COUNTER AGAINST 

1602 

R 

740001 

A 


CM A 


/COMMAND COUNT, 

1603 

R 

360104 

R 


TAD* 

SPFCNT 


1604 

R 

740100 

A 


SMA 



1605 

R 

621537 

R 


JMP* 

CMDDIS 

/EXIT, NOT ENOUGH, 

1606 

R 

220104 

R 


LAC* 

SPFCNT 

/ENOUGH-SET NEW COUNT, 

1607 

R 

340127 

R 


TAD 

SPFCON 


1610 

R 

060104 

R 


DAC* 

SPFCNT 


1611 

R 

601562 

R 


JMP 

CMDO. 2 


1612 

R 

750001 

A 

f 

CMDO, 7 

CLC 


/SPACE BACKWARD, CHECK SPACE 

1613 

R 

360100 

R 


TAD* 

CMDCNT 

/BACKWARD COUNTER AGAINST 

1614 

R 

740001 

A 


CM A 


/COMMAND COUNT, 

1615 

R 

360105 

R 


TAD* 

SPBCNT 


1616 

R 

740100 

A 


SMA 



1617 

R 

621537 

R 


JMP* 

CMDDIS 

/EXIT, NOT ENOUGH. 

1620 

R 

220105 

R 


LAC* 

SPBCNT 

/ENOUGH-SET NEW COUNT 

1621 

R 

340130 

R 


TAD 

SPBCQN 


1622 

R 

060105 

R 


DAC* 

SPBCNT 


1623 

R 

601562 

R 


JMP 

CHOP. 2 



.EJECT 
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/RANDOM 

/ 

NUMBER 

GENERATOR* F RDM 

TAPE EXERCISER EXEC, 

01624 

R 

000000 

A 

f 

RANGEN 

0 



01625 

R 

201662 

R 


LAC 

RANDEX 

/GET RANDOM TABLE INDEX AND 

01626 

R 

547573 

R 


SAD 

CRANTBL+10) 

/CHECK FOR END OF TABLE, 

01627 

R 

741000 

A 


SKP 



01630 

R 

601640 

R 


JHP 

rant ad* i 

/NO, CONTINUE, 

01631 

R 

207574 

R 


LAC 

CRANTBL) 

/YES, RESET INDEX TO START OF 

01632 

R 

041662 

R 


DAC 

RANDEX 

/TABLE, 

01633 

R 

201661 

R 


LAC 

RANCON 

/DO A ROTATE ON RANCON 

01634 

R 

745100 

A 


SPA1CLL 


/AND REPLACE, 

01635 

R 

744002 

A 


STL 



01636 

R 

740010 

A 


RAL 



01637 

R 

041661 

R 


DAC 

RANCON 


01640 

R 

221662 

R 


LAC* 

RANDEX 

/PICK UP TABLE ENTRY AND 

01641 

R 

341661 

R 

RANTAD 

TAD 

RANCON 

/ADD CONSTANT, REPLACING IN 

01642 

R 

061662 

R 


DAC* 

RANDEX 

/ENTRY, 

01643 

R 

441660 

R 


ISZ 

RANCNT 


01644 

R 

601651 

R 


JMP 

« +s 


01645 

R 

367524 

R 


TAD* 

(0) 


01646 

R 

061662 

R 


DAC* 

RANDEX 


01647 

R 

777400 

A 


LAW 

* 400 


01650 

R 

041660 

R 


DAC 

RANCNT 


01651 

R 

201657 

R 


LAC 

RANSAV 

/PICK UP PREVIOUS RANDOM NUMBER 

01652 

R 

740020 

A 


RAR 


/ROTATE IT ON RIGHT ANP ADD 

01653 

R 

361662 

R 


TAD* 

RANDEX 

/IT TO THIS TABLE ENTRY, 

01654 

R 

041657 

R 


DAC 

RANSAV 

/SAVE THE NUMBER, 

01655 

R 

441662 

R 


ISZ 

RANDEX 

/INCREMENT RANDEX FOR NEXT 

01656 

R 

621624 

R 


JMP* 

RANGEN 

/CYCLE AND EXIT WITH NUMBER INAC 

01657 

R 

300000 

A 

RANSAV 

0 


/CURRENT RANDOM NUMBER, 

01660 

R 

777400 

A 

RANCNT 

y 

*400 



01661 

R 

123456 

A 

RANCON 

123456 


/RANDOM CONSTANT, 

01662 

R 

301673 

R 

RANDEX 

RANTBL+10 

/rantbl INDEX 

01663 

R 

654321 

A 

RANT6U 

654321 


/RANDOM VALUE TABLE, 

01664 

R 

361416 

A 


361416 



01665 

R 

355363 

A 


055363 



0 1666 

R 

546060 

A 


546060 



01667 

R 

243035 

A 


243035 



01670 

R 

762572 

A 


762572 



01671 

R 

453237 

A 


453237 



01672 

R 

150214 

A 


150214 
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0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 




/initiate next operation on next handler. 
/ 


1673 

R 

000000 

A 

INTOPR 

0 




1674 

R 

102601 

R 


JiiS 

BUFGEN 



1675 

R 

102307 

R 


JMS 

HOLD 



1676 

R 

147452 

R 


DZM 

I NT, 3# 


/RESET REPEAT FLAG 

1677 

R 

207575 

R 


LAC 

(-120003 

/WAIT FOR TRANSPORT READY, 

1700 

R 

047453 

R 


DAC 

INT.4W 



1701 

R 

707321 

A 


MTCR 




1702 

R 

741000 

A 


SKP 




1703 

R 

601707 

R 


JMP 

• *4 



1704 

R 

447453 

R 


137. 

INT.4 



1705 

R 

601701 

R 


JMP 

, "4 



1706 

R 

602646 

R 


JMP 

ER0 1 



1707 

R 

102023 

R 


JMS 

CKRWD 


/READY, CHECK ANY HANDLERS DONE REWIND, 

1710 

R 

200065 

R 


LAC 

THSHAN 



1711 

R 

101242 

R 


JMS 

SETNXT 



1712 

R 

220067 

R 


LAC* 

CMD 


/CHECK NEXT COMMAND FOR READ, 

1713 

R 

507561 

R 


AND 

(70003 


/WRITE, OR REWIND, 

1714 

R 

547563 

R 


SAD 

(20003 



1715 

R 

601757 

R 


JMP 

INTO, 3 


/READ COMMAND NEXT, 

1716 

R 

547564 

R 


SAD 

(400O3 



1717 

R 

601731 

R 


JMP 

INTO, 4 


/WRITE COMMAND NEXT 

1720 

R 

547545 

R 


SAD 

(10003 



1721 

R 

601764 

R 


JMP 

INTO, 5 


/REWIND COMMAND NEXT, 

1722 

R 

102543 

R 

INTO,! 

JMS 

TRNGMP 


/TRANSMIT CURRENT COMMAND 

1723 

R 

601727 

R 


JMP 

INTO, 6 


/HANDLER NOT RDY , RETURN 

1724 

R 

207452 

R 


LAC 

I NT, 3 


/CHECK REPEAT FLAG. IF ON JUST 

1725 

R 

741200 

A 


SNA 



/ISSUED A REWIND, 

1726 

R 

621673 

R 


JMP* 

INTOPR 


/NOT ON, EXIT. 

1727 

R 

102104 

R 

INTO. 6 

JMS 

slnxhn 


/ON SELECT NEW HANDLER AND 

1730 

R 

601674 

R 


JMP 

INTOPR* 

1 

/REPEAT, IF NO MORE HANDLERS SEE SLNXHN 





/GENERATE DATA 

AND SET 

UP 

PARAMETERS TO INITIATE A WRITE, 

1731 

R 

207576 

R 

INTO. 4 

LAC 

CBUFl-l 

3 

/INITIATE A WRITE-GET 









/NEXT BUFFER AND SAVE IN 

1732 

R 

060070 

R 


DAC* 

CA 


/UPRTAB AND IN SYSTEM CA. 

1733 

R 

101624 

R 


JMS 

RANGEN 


/GET RECORD LENGTH FROM RANGEN 

1734 

R 

507557 

R 


AND 

C7 3 


/USING REC TAB, 

1735 

R 

100621 

R 


JMS 

GET 



1736 

R 

000141 

R 


„QSa 

RECTA6 



1737 

R 

0434 15 

R 


DAC 

BUF1+1 



1740 

R 

740001 

A 


CM A 




1741 

R 

347521 

R 


TAP 

(13 



1742 

R 

060071 

R 


DAC* 

WC 


/SET THE VALUE IN OPRTAB AND 

1743 

R 

347547 

R 


TAD 

(23 



1744 

R 

047454 

R 


DAC 

I NT. 5# 



1745 

R 

207546 

R 


LAC 

(BUF 1 * 1 

3 


1746 

R 

047455 

R 


DAC 

I NT, 6# 



1747 

R 

220073 

R 


LAC* 

CNTR 



17 50 

R 

043414 

R 


DAC 

BUF1 



1751 

R 

367455 

R 


TAD* 

INT.6 



1752 

R 

447455 

R 


132 

I NT . 6 
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017b 3 

R 

447454 

R 


ISZ 

I NT, 5 


01754 

R 

601751 

R 


JMP 

* *■ 3 


01755 

R 

067455 

R 


DAC* 

INT.6 


01756 

R 

601722 

R 


JMP 

INTO.l 

/RETURN TO START OPERATION. 





/SET UP 

PARAMETERS TO INITIATE 

A READ, 

01757 

R 

207576 

R 

INTO. 3 

LAC 

CBUF1-1) 

/GET NEXT BUFFER AND SAVE 

01760 

R 

060070 

R 


DAC* 

CA 

/IN OPRTAB AND SYSTEM CA, 

01761 

R 

200163 

R 


LAC 

MAXBUF 

/SET SYSTEM WORD COUNT TO 

01762 

R 

06007 1 

R 


DAC* 

WC 

/MAXIMUM BUFFER SIZE AND 

01763 

R 

601722 

R 


JMP 

INTO.l 

/RETURN TO INITIATE COMMAND, 





/SET REWIND 

OPERATION 


01764 

R 

101772 

R 

INTO. 5 

JMS 

SETRWO 

/GO SET REWINDING LOCK OUT. 

01765 

R 

547524 

R 


SAD 

(0) 

/THIS IS LAST HANDLER 

01766 

R 

601771 

R 


JMP 

■ +3 

/DON » T REPEAT, 

01767 

R 

777777 

A 


LAW 

* 1 

/ESSENTIALLY TERMINATES 

01770 

R 

047452 

R 


DAC 

I NT . 3 

/CYCLE ON THIS HANDLER, SET REPEAT 

01771 

R 

601722 

R 

/ 

JMP 

INTO.l 

/INITIATION FLAG AND INITIATE REWIND, 


/SET REWIND BITS FOR HANDLER REWINDING. 
/ 


017/2 

R 

000000 

A 

SETRWD 

0 



01773 

R 

^00066 

R 


LAC 

CURHAN 


01774 

R 

100621 

R 


JMS 

GET 


01775 

R 

000131 

R 


, DS A 

MSKTAB 


01776 

R 

500162 

R 


AND 

ANRWD 


01777 

R 

040162 

R 


DAC 

ANRWD 


02000 

R 

777777 

A 


LAW 

” 1 


02001 

R 

347446 

R 


TAD 

HANCNT 


020M2 

R 

047446 

R 


DAC 

hancnt 


02003 

R 

740200 

A 


SZA 



020M4 

R 

621772 

R 


JMP* 

SETRWD 

/EXIT, 

02005 

R 

200044 

R 


LAC 

REWN01 


02M06 

R 

360077 

R 


TAP* 

H ANNUM 


02007 

R 

060067 

R 


DAC* 

CMD 


02010 

R 

207577 

R 


LAC 

CSETR.i) 


02011 

R 

040115 

R 


DAC 

DISTSW 


02012 

R 

750000 

A 


CLA 



02013 

R 

621772 

R 


JMP* 

SETRWD 


02014 

R 

000000 

A 

SETR.l 

0 



02015 

R 

200065 

R 


LAC 

THSHAN 


02016 

R 

102057 

R 


JMS 

CLRRWD 


02017 

R 

207532 

R 


LAC 

CRANTST) 


02020 

R 

040115 

R 


DAC 

DISTSW 


02021 

R 

101513 

R 


JMS 

CLRDIS 


02022 

R 

600647 

R 


JMP 

R ANTS6 






/ 

/TEST 

FOR ANY 

HANDLERS REWINDING 

AND IF SO, IS THE OPERATION COMPLETE. 

02023 

R 

000000 

A 

f 

CKRWP 

0 



02024 

R 

147433 

R 


DZM 

CK W , 3# 


02025 

R 

200162 

R 


LAC 

ANRWD 

/GET HANDLER REWINDING FLAG 

02026 

R 

740001 

A 


CM A 


/MORE, COMPLIMENT IT AND SAVE, 

02027 

R 

047431 

R 


DAC 

CKW.lf* 











— 

S3 - 1 --' - - " 

■ “ “ " " " 

o 









o 
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o 









o 


02030 

R 

741200 

A 


SNA 


7 ARE ANY REWINDING, 



02031 

R 

622023 

R 


JMP* 

CKRWD 

/NO, EXIT. 


o 

02032 

R 

200032 

R 


LAC 

NOOP 

7YES, SET UP NOOP COMMAND FOR 

o 


02033 

R 

047432 

R 


DAC 

CKW, 2# 

/REWINDING UNIT SELECTION* 



02034 

R 

207431 

R 

C K R W , 2 

LAC 

CKW. 1 

/GET REWINDING FLAG WORD AND 


o 

02035 

R 

740100 

A 


SNA 


/CHECK FOR THIS ONE REWINDING, 

o 


02036 

R 

602045 

R 


JMP 

CKRW.l 


1 


02037 

R 

207432 

R 


LAC 

CKW, 2 

/TRANSMIT NOOP (UNIT NO.) TO CONTROL 


o . 





7 




o 


02040 

R 

707326 

A 


MTLC 



1 


02041 

R 

707301 

A 


MTTR 




o 

02042 

R 

602045 

R 


JMP 

CKRW.l 


O i 


02043 

R 

207433 

R 


LAC 

CKW, 3 

/CHECK FDR TRANSPORT READY, 

1 


02044 

R 

102057 

R 


JMS 

CLRRWD 

/READY, CLEAR REWINDING, 


o 





7 




o 


02045 

R 

447433 

R 

C K R H * 1 

ISZ 

CKW, 3 




02046 

R 

207431 

R 


LAC 

CKW, 1 

/GET REWINDING FLAG AGAIN AND 

• 

o 

02047 

R 

744010 

A 


RCL 


/CHECK THE NEXT HANDLER, 

O ' 


02050 

R 

047431 

R 


DAC 

CKW, 1 




02051 

R 

741200 

A 


SNA 


/ANY MORE? 


o 

02052 

R 

622023 

R 


JMP* 

CKRWD 

/NO, EXIT, 

o ; 


02053 

R 

207432 

R 


LAC 

CKW, 2 

/YES, STEP THE NOOP 



02054 

R 

347522 

R 


TAD 

(100000) 

/AND GO AROUND AGAIN, 


o 

02055 

R 

047432 

R 


DAC 

CKW, 2 


o 


02056 

R 

602034 

R 


JMP 

CKRW.2 



o 





f 

/CLEAR 

REWINDING 

HANDLER 

ROUTINE 

o 


02057 

R 

0100000 

A 

CLRRWD 

0 


/GET MASK POSITIONED FOR THIS 


o 

02060 

R 

101242 

R 


JMS 

5ETNXT 


o 


02061 

R 

101344 

R 


JMS 

SLMXOP 




02062 

R 

200066 

R 


LAC 

CURHAN 



o 

02063 

R 

100621 

R 


JMS 

GET 

/HANDLER NO. AND SET HANDLER 

o 


02064 

R 

000131 

R 


.PSA 

MSKTAB 

/REWINDING BIT FOR THIS HANDLER 



02065 

R 

740001 

A 


CM A 


/so THAT IT CAN BE RANDOMLY 


o 

02066 

R 

340162 

R 


TAD 

ANRWD 

/SELECTED AGAIN IN SEL. NEXT. 

O ! 


02067 

R 

040162 

R 


DAC 

ANRWD 

/handler 

1 

i 


02070 

R 

447446 

R 


ISZ 

HANCNT 


1 

o 

02071 

R 

622057 

R 


JMP* 

CLRRWD 


O 1 


02072 

R 

000000 

A 

y 

CMKHAN 

0 




o 

02073 

R 

207575 

R 


LAC 

(-12000) 

/WAIT FOR HANDLER 

o 


02074 

R 

047423 

R 


DAC 

CMK.l* 

/TO COME READY, NO MORE THAN 



02Q75 

R 

707301 

A 


MTTR 


740 MS. 


o 

02076 

R 

602101 

R 


JMP 

,+3 


o 


02077 

R 

442072 

R 


ISZ 

CHKHAN 




02100 

R 

622072 

R 


JMP* 

CHKHAN 

/HANDLER READY, RETURN. 


o 

02101 

R 

447423 

R 


ISZ 

CMK „ 1 


o 


02102 

R 

602075 

R 


JMP 

, -5 




02103 

R 

602647 

R 


JMP 

ER02 

/NOT RDY, ERROR 


o 






• EJECT 



O 

o 









o 

o 









o 

o 









o 
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/SELECT NEW NEXT HANDLER ROUTINE, 


/ 


0 2104 

R 

0000 0 0 

A 

SLNXHN 

0 


02105 

R 

102152 

R 

SLNX , 5 

JMS 

SELTAB 

02105 

R 

740200 

A 


SZA 


02107 

R 

602137 

R 


JMP 

SLNX, 1 

02110 

R 

200162 

R 


LAC 

ANRWD 

02111 

R 

74O001 

A 


CMA 


02112 

R 

741200 

A 


SNA 


02113 

R 

602665 

R 


JMP 

ER2D 

02114 

R 

147501 

R 


DZM 

SLX.l# 

02115 

R 

741100 

A 


SPA 


02116 

R 

602122 

R 


JMP 

,+4 

02117 

R 

744010 

A 


RCL 


02120 

R 

447501 

R 


ISZ 

SLX.l 

02121 

R 

602115 

R 


JMP 

• "4 

02122 

R 

207501 

R 


LAC 

SLX.l 

02123 

R 

100621 

R 


JMS 

GET 

02124 

R 

000045 

R 


• PSA 

HANQNM 

02125 

R 

340043 

R 


TAP 

NOOP 1 

02126 

R 

707326 

A 


MTLC 


02127 

R 

207600 

R 


LAC 

(SLNX • 4) 

02130 

R 

040115 

R 


U AC 

DISTSW 

02131 

R 

600306 

R 


JMP 

EXIT 

02132 

R 

207501 

R 

SLNX , 4 

LAC 

SLX.l 

02133 

R 

102057 

R 


JMS 

CLRRWD 

02134 

R 

207532 

R 


LAC 

CRANTST) 

02135 

R 

040115 

R 


DAC 

DISTSW 

02136 

R 

602105 

R 


JMP 

SLNX, 5 

02137 

R 

101624 

R 

SLNX , 1 

JMS 

RANGEN 

02140 

R 

507557 

R 


AND 

C7) 

02141 

R 

047501 

R 


DAC 

SLX.l 

02142 

R 

347601 

R 


TAD 

CSELHAN) 

02143 

R 

047502 

R 


DAC 

SLX , 2# 

02144 

R 

227502 

R 


LAC* 

SLX.2 

02145 

R 

740200 

A 


SZA 


02146 

R 

602137 

R 


JMP 

SLNX.i 

02147 

R 

207501 

R 


LAC 

SLX.l 

02150 

R 

040065 

R 


DAC 

THSHAN 

02151 

R 

622104 

R 


JMP* 

SLNXHN 


.EJECT 


/GET NO. OF HANDLERS AVAILABLE 
/FOR RANDOM SELECTION, 

/ONE OR MORE AVAILABLE. 

/NO HANDLERS AVAILABLE FOR SELECTION, CHECK 
/FOR AN OUTSTANDING REWIND. 

/NO REWINDS-ALL OUT OF HANDLERS, 

/YES AN OUTSTANDING REWIND, 

/FIND FIRST REWINDING HANDLER 
/FOUND. 

/NOT FOUND t CONTINUE SEARCH, 


/SET HANDLER SELECTION 


/EXIT TO MONITOR SETTING 
/DISTRIBUTOR SWITCH TO RETURN 
/HERE ON INTERRUPT, 

/AFTER REWINDING COMPLETE. 

/CLEAR REWINDING BIT FOR THIS HANDLER. 
/RESET DISTRIBUTION SWITCH, 

/TRY AGAIN, 

/GET NEXT RANDOM NUMBER 
/ AND CHECK SELECTION TABLE 
/TO DETERMINE IF THAT ONE 
/IS AVAILABLE, 


/NO, GET ANOTHER HANOLER NO, 
/YES, USE THAT NO, FOR NEW 
/NEXT HANDLER, 

/SET OLD NEXT HANDLER IN THIS 
/EXIT, 
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/ROUTINE TO DETERMINE WHICH 
/ 


02152 

R 

000000 

A 

SELT AB 

0 


02153 

R 

777770 

A 


LAW 

-10 

02154 

R 

M47472 

R 


DAC 

SEL. 

02155 

R 

207601 

R 


LAC 

CSELHAN) 

02156 

R 

047473 

R 


DAC 

SEL, 2# 

02157 

R 

750001 

A 


CLC 


02160 

R 

067473 

R 

SELT , 1 

DAC* 

SEL. 2 

02161 

R 

447473 

R 


xsz 

SEL. 2 

02162 

R 

447472 

R 


ISZ 

SEL. 1 

02163 

R 

602160 

R 


JMP 

SELT , 1 

02164 

R 

207601 

R 


LAC 

CSELHAN) 

02165 

R 

047473 

R 


DAC 

SEL, 2 

02166 

R 

147472 

R 


PZM 

SEL, 1 

02167 

R 

200161 

R 


LAC 

ACTIVE 

02170 

R 

500162 

R 


AND 

ANRWD 

02171 

R 

74010O 

A 

SELT, 2 

SMA 


02172 

R 

602175 

H 


JMP 

S E L T , 3 

0217*3 

R 

167473 

R 


DZM* 

SEL. 2 

02174 

R 

447472 

R 


ISZ 

SEL . 1 

02175 

R 

744010 

A 

SELT. 3 

RCL 


02176 

R 

741200 

A 


SNA 


02177 

R 

602202 

R 


JMP 

SELT. 4 

022U0 

R 

447473 

R 


ISZ 

SEL, 2 

02201 

R 

602171 

R 


JMP 

SELT, 2 

02202 

R 

207472 

R 

SELT, 4 

LAC 

SEL. 1 

022W3 

R 

622152 

R 


JMP* 

SELTAB 


.EJECT 


HANDLERS ARE AVAILABLE FOR RANDOM SELECTION. 


/CLEAR SELECTABLE HANDLERS 
/TO MINUS ONES, 

/AS EACH HANDLER IS EXAMINED FOR 
/SELECTABILITY, ITS ENTRY IS ZEROED 
/IF AVAILABLE FOR SERVICE. 

/RETURN TO 3LNXHN WITH NUMBER 
/HANDLERS AVAILABLE. 

/AND TOGETHER THE FOLLOWING TO DETER- 
/MINE SELECTABILITY, 

/ACTIVE*0aINACTIVEM"ACTIVE 
/ARWDf0“REWINDING/ 1*NQT REWINDING 
/SP£CIAL :0 = SPEC. SEQUaNOT SPECIAL 
/ALL THOSE WITH A ONE RESULT ARE SELECTABLE, 

/CHECK LEFT MOST BIT, 

/OFF-NOT AVAILABLE, 

/GN-CLEAR HANDLER ENTRY, 

/COUNT THE NO, AVAILABLE, 

/SHIFT TO GET NEXT ONE. 

/DONE-NO MORE AVAILABLE, 

/MORE AVAILABLE-GET THEM, 

/SET NUMBER AVAILABLE IN AC. 

/AND RETURN. 
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/WRITE EXERCISER TEST 


o 

02204 

R 

000000 

A 

T5T1.1 

0 




02205 

R 

207602 

R 


LAC 

CIST 1,2) 

/SET DISTRIBUTION SWITCH EOR RETURN , 


02206 

R 

040115 

R 


0 AC 

DISTSW 


o 

02207 

R 

100513 

R 


J 05 

PQLXNT 

/GO TO PULL HANDLERS AND 

02210 

R 

100525 

R 


JMS 

POLHAN 

/KIND ONE ACTIVE P 


02211 

R 

602665 

R 


JMP 

ER20 

/NONE ACTIVE-TERM I NATE* 

o 

02212 

R 

101242 

R 


JMS 

SETNXT 

/SET THIS HANDLER 

02213 

R 

101513 

R 


JMS 

CLRDIS 

/CLEAR PARAMETERS 


02214 

R 

207521 

R 


LAC 

Cl) 


o 

02215 

R 

0 4 7 4 4 6 

R 


DAC 

HANG NT 


02216 

R 

102255 

R 


JMS 

GENWRT 

/GENERATE WRITE COMMAND, 


02217 

R 

102274 

R 


JMS 

clbmi 

/CLEAR WRITE BUFFER TO ALL 1»S 

o 

02220 

R 

207465 

R 


LAC 

RANLEN 

/SET NUMBER OF CYCLES TO 300 

02221 

R 

047515 

R 


DAC 

T51.2# 

/OCTAL, 


02222 

R 

207576 

R 


LAC 

(BUF1M) 


o 

02223 

R 

060070 

R 


DAC* 

CA 


02224 

R 

207 466 

R 


LAC 

RECLEN 



02225 

R 

06007 1 

R 


DAC* 

WC 


o 

02226 

R 

102307 

R 

TSTU3 

JMS 

HOLD 


02227 

R 

102543 

R 


JMS 

TRNCMD 



02230 

R 

602665 

R 


JMP 

ER2D 

/HANDLER NOT READY ERROR, 

o 

02231 

R 

600306 

R 


JMP 

EXIT 


02232 

R 

000000 

A 

T5T1.2 

0 




02233 

R 

100661 

R 


JMS 

CHKOPR 

/CHECK OPERATION 

0 

02234 

R 

200110 

R 


LAC 

SVSTAT 


02235 

R 

507564 

R 


AND 

(4000) 



02236 

R 

740200 

A 


SZA 



o 

02237 

R 

602242 

R 


JMP 

, + 3 



02240 

R 

447515 

R 


ISZ 

TS1.2 

/COUNT END 


02241 

R 

602226 

R 


JMP 

TST1.3 

/NOT END 

o 

02242 

R 

200044 

R 


LAC 

REWND1 


02243 

R 

360077 

R 


TAD* 

HANNUM 



02244 

R 

060067 

R 


DAC* 

CMD 


o 

02245 

R 

101513 

R 


JMS 

CLRDIS 


02246 

R 

102543 

602665 

R 


JMS 

TRNCMD 



02247 

R 

R 


JMP 

ER20 


o 

02250 

R 

207603 

R 


LAC 

CTST1.4) 


02251 

R 

040115 

R 


DAC 

DISTSW 



02252 

R 

600306 

R 


JMP 

EXIT 


o 

02253 

R 

000000 

A 

TST1.4 

0 



02254 

R 

622204 

R 


JMP* 

TST1.1 



.EJECT 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 


o 



PAGE 36 


MAGTAP SRC 






/GENERATE A WRITE COMMAND 

V 


02265 

R 

0 0 0 0 0 0 

A 

f 

GENWRT 

0 



02256 

R 

200036 

R 


LAC 

WRITE 

/GET WRITE COMMAND 

02257 

R 

360077 

R 


T AO* 

HANNUM 

/SET HANDLER NUMBER, 

02260 

R 

360075 

R 


TAP* 

DENPAR 

/DENSITY AND PARITY AND 

02261 

R 

060067 

R 


DAC* 

CMD 

/SET IN COMMAND, 

02262 

R 

207576 

R 


LAC 

CBUFl-1) 


02263 

R 

060070 

R 


DAC* 

CA 


02264 

R 

200061 

R 


LAC 

CKWRT 

/SET CHECK WRITE POINTER 

02265 

R 

(360072 

R 


DAC* 

CHKPTR 


02266 

R 

207565 

R 


LAC 

C 4) 


02267 

R 

100621 

R 


JMS 

GET 


02270 

R 

000116 

R 


• DSA 

NONTAB 


02271 

R 

060076 

R 


DAC* 

NONSEN 


02272 

R 

460100 

R 


xsz* 

CM DC NT 

/INCREMENT COMMAND COUNT 

02273 

R 

622255 

R 


JMP* 

GENWRT 

/EXIT, 





/CLEAR 

/ 

BUFFER 

TO MINUS ONES, 


02274 

R 

000000 

A 

r 

CL6M1 

0 



02275 

R 

207604 

R 


LAC 

CBUF1) 


02276 

R 

047434 

R 


DAC 

CLBM.l# 


02277 

R 

774000 

A 


LAW 

-BUFSIZ 


02300 

R 

0 4 7 4 3 5 

R 


DAC 

CL6M , 2# 


02301 

R 

207460 

R 


LAC 

PATTEN 


02302 

R 

067434 

R 


DAC* 

CLBM.l 


02303 

R 

447434 

R 


XSZ 

CL8M.1 


02304 

R 

447435 

R 


ISZ 

CLBM , 2 


02305 

R 

602302 

R 


JMP 

* - 3 


02306 

R 

622274 

R 


JMP* 

CLBM 1 


02307 

R 

000000 

A 

y 

HOLD 

0 



02310 

R 

750004 

A 


LAS 



02311 

R 

507521 

R 


AND 

CO 


02312 

R 

741200 

A 


SNA 



02313 

R 

622307 

R 


JMP* 

HOLD 


02314 

R 

100433 

R 


JMS 

BREAK 


02315 

R 

602310 

R 


JMP 





o 
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KJ 

o 









o 





/★a***************************************************************** 







/write: 

EXERCISER 



o 





/ 




o 

02316 

R 

000000 

A 

T E S T 1 

0 





02317 

R 

207521 

R 


LAC 

Cl) 


o 

o 

02320 

R 

047514 

R 


DAC 

TSTNQ 


02321 

R 

102204 

R 


JMS 

TSTl.t 




02322 

R 

600367 

R 


JMP 

TERM I N 



o 





/ 

/★**★ 

WRITE- 

REAP EXERCISER 


o 

o 

02323 

R 

000000 

A 

T £ S T 2 

0 



o 


02324 

R 

2 0 7 5 4 7 

R 


LAC 

C2) 

/SET TEST NO, TO 2, 



02325 

R 

047514 

R 


DAC 

tstno 



o 

02326 

R 

102204 

R 


JMS 

TST1.1 

/WRITE RECORDS, 

o 

02327 

R 

750001 

A 


CLC 





02330 

R 

347515 

R 


TAD 

TS 1 „ 2 


0 

o 

02331 

R 

740001 

A 


CM A 



02332 

R 

347465 

R 


TAP 

RANLEN 




02333 

R 

0 4 7 5 1 6 

R 


PAC 

TS2,l# 


o 

o 

02334 

R 

102336 

R 


JMS 

TST2 , 1 

/READ RECORDS. 


02335 

R 

602327 

R 

/ 

/*★*+* 

JMP 

* -6 



o 





a************************* 

******************************************** 

o 






/write: 

-REAP 

EXERCISER TEST 



o 

02336 

R 

000000 

A 

/ 

TST2 , 1 

0 


/ASSUMES EXECUTION OF TST1,1 

o 


02337 

R 

102625 

R 


JMS 

GENRD 

/GENERATE A READ COM, 



02340 

R 

2 0 7 6 w 5 

R 


LAC 

CTST2.2) 

/SET DISTRIBUTION SWITCH, 

o 

o 

02341 

R 

040115 

R 


DAC 

DISTSW 


02342 

R 

102307 

R 

TST2.3 

JMS 

HOLD 




02343 

R 

102543 

R 


JMS 

TRNCMP 

/TRANSMIT COMMAND, 


o 

02344 

R 

602665 

R 


JMP 

ER20 

/HANDLER NOT READY, 

o 

02345 

R 

600306 

R 


JMP 

EXIT 

/EXIT, 



02346 

R 

000000 

A 

TST2 , 2 

0 



o 

o 

02347 

R 

1.00661 

R 


JMS 

GHKOPR 

/CHECK OPERATION 

02350 

R 

200110 

R 


LAC 

S VST AT 




02351 

R 

507564 

R 


AND 

C 4000 ) 


o 

o 

02352 

R 

740200 

A 


SZA 



02353 

R 

602356 

R 


JMP 

« +3 




02354 

R 

447516 

R 


ISZ 

TS2.1 

/COUNT CYCLES, 

o 

o 

02355 

R 

602342 

R 


JMP 

TST2.3 

/NOT DONE, REPEAT, 

02356 

R 

200044 

R 


LAC 

REWND1 




02357 

R 

360077 

R 


TAP* 

HANNUM 


o 

o 

02360 

R 

060067 

R 


DAC* 

CMP 


02361 

R 

101613 

R 


JMS 

CLRPIS 




02362 

R 

102543 

R 


JMS 

TRNCMP 

/TRANSMIT IT. 

o 

o 

02363 

R 

602665 

R 


JMP 

ER20 

/HANDLER NOT READY, 

02364 

R 

207606 

R 


LAC 

(TST2,4) 

/SET DISTRIBUTION SWITCH, 



02365 

R 

040115 

R 


DAC 

DISTSW 


o 

o 

02366 

R 

600306 

R 


JMP 

EXIT 

/EXIT. 

02367 

R 

000000 

A 

TST2.4 

0 


/DONE REWINDING, RETURN, 



02370 

R 

622336 

R 


JMP* 

T3T2.1 
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MAGTAP SRC 


/*****★***#******** 

/ 


02371 

R 

000000 

A 

TEST3 

0 


02372 

R 

207607 

R 


LAC 

C3) 

02373 

R 

047514 

R 


DAC 

TSTNO 

02374 

R 

102376 

R 


JMS 

TST3.1 

02375 

R 

600367 

R 


JMP 

TERMIN 

023/6 

R 

0 000 0 0 

A 

y 

TST3.1 

0 


02377 

R 

147446 

R 


PZM 

HANCNT 

02400 

R 

207610 

R 


LAC 

CTST3.3) 

02401 

R 

040115 

R 


DAC 

DISTSN 

02402 

R 

100513 

R 


JMS 

POLINT 

02403 

R 

100525 

R 

TST3.7 

JMS 

POLHAN 

02404 

R 

602665 

R 


JMP 

ER20 

02405 

R 

4 4 7 4 4 6 

R 


I5Z 

HANCNT 

02406 

R 

047517 

R 


DAC 

TS3.1# 

02407 

R 

207446 

R 


LAC 

HANCNT 

02410 

R 

547521 

R 


SAD 

Cl) 

02411 

R 

741000 

A 


SKP 


02412 

R 

602416 

R 


JMP 

TST3.6 

02413 

R 

207517 

R 


LAC 

TS3.1 

02414 

R 

047447 

R 


DAC 

H ANNO 1# 

02415 

R 

602403 

R 


JMP 

TST3.7 

02416 

R 

207517 

R 

TST3.6 

LAC 

TS3.1 

02417 

R 

047450 

R 


DAC 

HANN02# 

02420 

R 

101242 

R 


JMS 

SETNXT 

02421 

R 

101513 

R 


JMS 

CLRDIS 

02422 

R 

207447 

R 


LAC 

HANNOl 

02423 

R 

101242 

R 


JMS 

SETNXT 

02424 

R 

101513 

R 


JMS 

CLRDIS 

02425 

R 

102274 

R 


JMS 

CLBM1 

02426 

R 

102255 

R 


JMS 

GENWRT 

02427 

R 

207465 

R 


LAC 

RANLEN 

02430 

R 

047517 

R 


DAC 

TS3.1 

02431 

R 

102307 

R 

TST3.4 

JMS 

HULD 

02432 

R 

101624 

R 


JMS 

RANGEN 

02433 

R 

507557 

R 


AND 

C7) 

02434 

R 

100621 

R 


JMS 

GET 

02435 

R 

000141 

R 


.dsa 

RECTAB 

02436 

R 

740001 

A 


CM A 


02437 

R 

347521 

R 


TAD 

Cl) 

02440 

R 

060071 

R 


DAC* 

wc 

02441 

R 

102543 

R 


JMS 

TKNCMD 

02442 

R 

602665 

R 


JMP 

EH 20 

02443 

R 

600306 

R 


JMP 

EXIT 


.EJECT 


*****★******★***★***★****★ + ★★•*★★**★**★**★ 


/SET TEST NUMBER • 
/GO TP TEST 
/EXIT, ENP OF TEST. 


/SEGMENT 1, I N IT f f CLR HANDLER CNT, 
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MAGTAP SRC 



02444 

R 

000000 

A 

T3T3.3 

0 



02445 

R 

100661 

R 


JMS 

CHKOPR 

o 

02446 

H 

200110 

R 


LAC 

SVSTAT 


02447 

R 

507564 

R 


AND 

(40001 


02450 

R 

740200 

A 


57 A 


o 

02451 

R 

602454 

R 


JMP 

• +3 

02452 

R 

447517 

R 


I5Z 

TS3,1 


02453 

R 

602431 

R 


JHP 

TST3 , 4 

o 

02454 

R 

200044 

R 


LAC 

REWND1 

02455 

R 

360077 

R 


TAD* 

hannum 


02456 

R 

060067 

R 


DAC* 

CMD 

o 

02457 

R 

101513 

R 


JMS 

CLRDIS 


02450 

R 

102543 

R 


JMS 

TRNCMD 


02461 

R 

602665 

R 


JMP 

ER2M 

o 

02462 

R 

207611 

R 


LAC 

(TST3* 5) 


02463 

R 

040115 

R 


DAC 

DISTSW 


02464 

R 

750001 

A 


CLC 


o 

02465 

R 

347517 

R 


TAD 

TS3.1 

02466 

R 

740001 

A 


CM A 



02467 

R 

347465 

R 


TAD 

RANLEN 

o 

02470 

R 

047517 

R 


DAC 

TS3, 1 

02471 

R 

600306 

R 


JMP 

EXIT 

o 

02472 

R 

000000 

A 

TST3 , 5 

0 


02473 

R 

102307 

R 


JMS 

HOLD 


02474 

R 

207447 

R 


LAC 

H ANNO 1 

o 

02475 

R 

101242 

R 


JMS 

SETNXT 

02476 

R 

207612 

R 


LAC 

(TST3. 83 


02477 

R 

040115 

R 


PAG 

DISTSW 

o 

02500 

R 

102625 

R 


JMS 

GENRD 

02501 

R 

102543 

R 


JMS 

TRNCMD 


02502 

R 

602665 

R 


JMP 

ER2D 

o 

02503 

R 

600306 

R 


JMP 

EXIT 
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magtap 

' SRC 

02504 

R 

000000 

A 

02505 

R 

100661 

R 

02506 

R 

200110 

R 

02507 

R 

507564 

R 

02510 

R 

740200 

A 

02511 

R 

602542 

R 

02512 

R 

102307 

R 

02513 

R 

207450 

R 

02514 

R 

101242 

R 

02515 

R 

207613 

R 

02516 

R 

040115 

R 

02517 

R 

102255 

R 

02520 

R 

750001 

A 

02521 

R 

340112 

R 

02522 

R 

740001 

A 

02523 

R 

340163 

R 

02524 

R 

741200 

A 

02525 

R 

602664 

R 

02526 

R 

060071 

R 

02527 

R 

102543 

R 

02530 

R 

602665 

R 

02531 

R 

600306 

R 

02532 

R 

000000 

A 

02533 

R 

100661 

R 

02534 

R 

200110 

R 

02535 

R 

507564 

R 

02536 

R 

740200 

A 

02537 

R 

602542 

R 

02540 

R 

447517 

R 

02541 

R 

602473 

R 

02542 

R 

622376 

R 


TST3.8 

0 



JMS 

CHKOPR 


LAC 

S VST AT 


and 

C 4000 ) 


SZA 



JMP 

TST3.2 


JMS 

HOLD 


LAC 

HANN02 


JMS 

SETNXT 


LAC 

CTST3.9) 


DAC 

DISTSW 


JMS 

GENWRT 


CLC 



TAD 

SVWC 


CM A 



TAD 

MAXBUF 


SNA 



JMP 

ER 17 


DAC* 

WC 


JMS 

TRNCMD 


JMP 

ER20 


JMP 

EXIT 


/ 


TST3.9 

0 



JMS 

CHKOPR 


LAC 

SVSTAT 


AND 

C4000) 


SZA 



JMP 

TST3.2 


I3Z 

TS3.1 


JMP 

TST3.5+1 

/ 



T5T3 f 2 

JMP* 

TST3.1 
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/TRANSMIT COMMAND TO HANDLER* 
/ 


02543 

R 

000000 

A 

TRNCMD 

0 



02544 

R 

22007 1 

R 


LAC* 

WC 

/TRANSMIT COMMAND SUBROUTINE 

02545 

R 

060114 

R 


0 AC* 

5YSWC 

/LOAD WC AND CURRENT ADR * 

02546 

R 

220070 

R 


LAC* 

CA 

/FROM OPR TAB, 

02547 

R 

060113 

R 


DAC* 

SYSCA 


02550 

R 

220067 

R 


LAC* 

CMD 

/THEN , GET CURRENT COMMAND 

02551 

R 

707321 

A 


MTCR 


/AND CHECK CONTROLLER, 

02552 

R 

602551 

R 


JMP 

* " 1 

/NOT READY , ERROR AND TERMIN 

02553 

R 

707326 

A 


MTLC 


/READY , LOAD COMMAND AND 

02554 

R 

707352 

A 


MTRS 



02555 

R 

607534 

R 


AND 

(10) 


02556 

R 

745200 

A 


SNAiCLL 



02557 

R 

602673 

R 


JMP 

TRNC * 1 


02560 

R 

200000 

R 


LAC 

UOOSW 


02561 

R 

50/614 

R 


AND 

(3000) 


02562 

R 

547614 

R 


SAP 

(3000) 


02563 

R 

602573 

R 


JMP 

TRNC * 1 


02564 

R 

742020 

A 


RTR 



02565 

R 

740020 

A 


RAR 



02566 

R 

M47504 

R 


DAC 

SVPAR# 


02567 

R 

707312 

A 


MTRC 



02570 

R 

507615 

R 


AND 

(777477) 


02571 

R 

247504 

R 


XOR 

SVPAR 


02572 

R 

707326 

A 


MTLC 



02573 

R 

102072 

R 

TRNC.l 

JMS 

CHKMAN 

/CHECK HANDLER 

02574 

R 

622543 

R 


JMP* 

TRNCMD 

/NEED ANOTHER HANDLER, 

02575 

R 

102307 

R 


JMS 

HOLD 


02576 

R 

707304 

A 


MTGO 


/OK, SET GO, 

02577 

R 

442543 

R 


ISZ 

TRNCMD 


02600 

R 

622543 

R 


JMP* 

TRNCMD 
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SRC 

/BUFFER 

j 

RANDOM 

DATA GENERATION 

ROUTINE 

03601 

R 

000000 

A 

t 

BUFGEN 

W 



03602 

R 

777740 

A 


LAW 

"* 40 


02603 

R 

047420 

R 


DAO 

BUF.l* 

/FORTY OCTAL LOCATIONS PER 

02604 

R 

101624 

R 


JMS 

RANGEN 

/ENTRY 

02605 

R 

741200 

A 


SNA 



02606 

R 

602604 

R 


JMP 

• "2 


02607 

R 

067421 

R 


D AC* 

BUF.2# 


02610 

R 

447421 

R 


1SZ 

BUF.2 


02611 

R 

447422 

R 


l SZ 

BUF.3# 


02612 

R 

741000 

A 


SKP 



02613 

R 

102617 

R 


JMS 

RES0UF 


02614 

R 

447420 

R 


xsz 

BUF.l 


02615 

R 

602604 

R 


JMP 

.-11 


02616 

R 

622601 

R 

/ 

RE5BUF 

JMP* 

BUFGEN 


02617 

R 

000000 

A 

0 



02620 

R 

774000 

A 


LAW 

-BUFSIZ 


02621 

R 

047422 

R 


DAC 

BUF.3 


02622 

R 

207604 

R 


LAC 

(BUF1) 


02623 

R 

047421 

R 


DAC 

BUF.2 


02624 

R 

622617 

R 

/ 

JMP* 

RESBUF 



/ 

/ 


02625 

R 

000000 

A 

GENRD 

0 


/GENERATE READ 

02626 

R 

200034 

R 


LAC 

READ 


02627 

R 

360077 

R 


T A 0 * 

HANNUM 


02630 

R 

360075 

R 


TAP* 

DENPAR 


02631 

R 

060067 

R 


DAC* 

CMD 


02632 

R 

207576 

R 


LAC 

CBUFl-n 


02633 

R 

060070 

R 


DAC* 

CA 


02634 

R 

200163 

R 


LAC 

MAXBUF 


02635 

R 

060071 

R 


PAC* 

WC 


02636 

R 

200057 

R 


LAC 

CKREAD 


02637 

R 

060072 

R 


DAC* 

CHKPTR 


02640 

R 

207547 

R 


LAC 

(2) 


02641 

R 

100621 

R 


JMS 

GET 


02642 

R 

000116 

R 


,QSA 

N0NTA8 


02643 

R 

060076 

R 


DAC* 

NONSEN 


02644 

R 

460100 

R 


ISZ* 

CMPCNT 


02645 

R 

622625 

R 


JMP* 

GENRD 
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O 

/***■*★*★**★**★*****★*★*#★★****** 

/ERROR DECODER AND PROCESSOR, 



02646 

R 

102671 

R 

ER01 

J H S 

ERRM0 


02647 

R 

102677 

R 

ER02 

JMS 

ERRUl 

o 

02650 

R 

102723 

R 

ER03 

JfIS 

ERR02 


0265 X 

R 

102723 

R 

ER04 

JMS 

ERR02 


02652 

R 

102723 

R 

£ R 0 5 

JMS 

ERR02 

O 

02653 

R 

102727 

R 

ER06 

4 MS 

ERR03 

02654 

R 

601144 

R 

ER07 

JHP 

ER07.1 


02655 

R 

102723 

R 

ER 1 0 

JMS 

ERR02 

O 

02656 

R 

102723 

R 

ERU 

JMS 

ERRM2 

02657 

R 

102723 

R 

ER 1 2 

JMS 

ERR02 


02660 

R 

102723 

R 

ER 1 3 

JMS 

ERR02 

o 

02661 

R 

102723 

R 

ER 1 4 

JMS 

ERR02 

02662 

R 

102723 

R 

ER 1 5 

JMS 

ERR02 


02663 

R 

1.02671 

R 

ER 1 6 

JMS 

ERR00 

o 

02664 

R 

102671 

R 

ER 1 7 

JMS 

ERR00 


02665 

R 

102671 

R 

ER20 

JMS 

ERR00 


02666 

R 

102733 

R 

ER21 

JMS 

ERR04 

o 

02667 

R 

102733 

R 

ER22 

JMS 

ERR 04 

02670 

R 

102733 

R 

ER23 

JMS 

ERRM4 

o 

02671 

R 

mmm 

A 

y 

ERR00 

0 


02672 

R 

103075 

R 


JMS 

ernum 


02673 

R 

777777 

A 


LAW 

" 1 

o 

02674 

R 

04744 1 

R 


DAC 

DONE 

02675 

R 

103135 

R 


JMS 

ENDPUT 

o 

02676 

R 

600367 

R 

/ 

JMP 

TERMIN 

02677 

R 

000000 

A 

ERR01 

M 



02700 

R 

103075 

R 


JMS 

ERNUM 

o 

02701 

R 

220067 

R 


LAC* 

CMD 

02702 

R 

103130 

R 


JMS 

PUT 


02703 

R 

200065 

R 


LAC 

THSHAN 

o 

02704 

R 

100621 

R 


JMS 

GET 

02705 

R 

000131 

R 


• US A 

MSKTAB 


02706 

R 

500161 

R 


AND 

ACTIVE 

o 

02707 

R 

040161 

R 


DAC 

ACTIVE 

027 10 

R 

103135 

R 


JMS 

ENDPUT 


02711 

R 

750001 

A 


CLC 


o 

02712 

R 

3 47446 

R 


TAD 

HANCNT 

02713 

R 

047446 

R 


DAC 

HANCNT 


02714 

R 

740200 

A 


SZA 


o 

02715 

R 

622072 

R 


JMP* 

CHKMAN 

02716 

R 

200162 

R 


LAC 

ANRWO 


02717 

R 

740001 

A 


CM A 


o 

02720 

R 

740200 

A 


SZ A 


02721 

R 

622072 

R 


JMP* 

CHKHAN 


02722 

R 

602665 

R 


JMP 

ER20 
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02723 

R 

0 0 0 0 0 0 

A 

ERR02 

0 


02724 

R 

103075 

R 


JMS 

ERNUM 

02725 

R 

1.03050 

H 

ERR2. 1 

JMS 

ERRPUT 

02726 

R 

602771 

R 


JMP 

ERR*, 1 

02727 

R 

000000 

A 

f 

ERR03 

0 


02730 

R 

103075 

R 


JMS 

ERNUM 

02731 

R 

103050 

R 


JMS 

ERRPUT 

02732 

R 

603001 

R 


JMP 

BADTAP 

02733 

R 

000000 

A 

ERR04 

0 


02734 

R 

202733 

R 


LAC 

ERR04 

02735 

R 

042742 

R 


DAC 

ERR4 „ 2 

02736 

R 

207514 

R 


LAC 

TSTNO 

02737 

R 

741200 

A 


SNA 


02740 

R 

602743 

R 


JMP 

ERR4 * 1 

02741 

R 

620666 

R 


JMP* 

CK3R2 

02742 

R 

000000 

A 

ERR4.2 

0 


02743 

R 

103075 

R 

ERR4.1 

JMS 

ERNUM 

02744 

R 

220067 

R 


LAC* 

CMD 

02745 

R 

103130 

R 


JMS 

PUT 

02746 

R 

200110 

R 


LAC 

SVSTAT 

02747 

R 

103130 

R 


JMS 

PUT 

02750 

R 

220073 

R 


LAC* 

CNTR 

02751 

R 

103130 

R 


JMS 

PUT 

02752 

R 

203414 

R 


LAC 

BUF1 

02753 

R 

103130 

R 


JMS 

PUT 

02754 

R 

203415 

R 


LAC 

BUF1+1 

02755 

R 

103130 

K 


JMS 

PUT 

02756 

R 

207564 

R 


LAC 

CBUFSIZ 

02757 

R 

340112 

R 


TAD 

svwc 

02760 

R 

103130 

R 


JMS 

PUT 

02761 

R 

207444 

R 


LAC 

ERR, 22 

02762 

R 

103130 

R 


JMS 

PUT 

02763 

R 

103135 

R 


JMS 

ENDPUT 

02764 

R 

460073 

R 


XSZ* 

CNTR 

02765 

R 

740000 

A 


NOP 


02766 

R 

220073 

R 


LAC* 

CNTR 

02767 

R 

060074 

R 


DAC* 

CNTW 

02770 

R 

600647 

R 


JMP 

RANTS6 

02771 

R 

103135 

R 

ERR ■ 1 

JMS 

ENDPUT 

02772 

R 

207514 

R 


LAC 

TSTNO 

02773 

R 

740200 

A 


SZA 


02774 

R 

620661 

R 


J M P * 

CHKOPR 

02775 

R 

207443 

R 


LAC 

ERN, 1 

02776 

R 

547607 

R 


SAD 

C3) 

02777 

R 

600647 

R 


JMP 

RANTS6 

03000 

R 

620661 

R 


JMP* 

CHKOPR 


• EJECT 


o 


o 


o 


o 


/UTHER ERRORS, SET ERROR NUMBER 
/THEN SET REMAINING PARAMETERS. 

/BAD TAPE ERROR, SET ERROR 

/NUMBER, THEN REMAINING PARAMETERS 
/AND FINAEUY BAD TAPE SPECIAL SEG, 


/CLOSE PUT ROUTINE, IP SECOND ERROR 


/ENDPUT RETURNS TO SELECT NEXT OPER. 


c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



PAGE 45 


MAGTAP SRC 


030-41 

R 

740000 

A 

BAQTAP 

NOP 


03002 

R 

200041 

R 


LAC 

SPCREV 

03003 

R 

360075 

R 


TAD* 

DENPAR 

0300 4 

R 

360077 

K 


TAD* 

HANNUM 

03005 

R 

060067 

R 


DAC* 

CMD 

03006 

R 

200115 

R 


LAC 

DISTSW 

03007 

R 

047470 

R 


DAC 

SAVDIS 

03010 

R 

207616 

R 


LAC 

CBOTAPU 

03011 

R 

040115 

R 


DAC 

DISTSW 

03012 

R 

777/77 

A 


LAW 

"* 1 

03013 

R 

060071 

R 


DAC* 

wc 

03014 

R 

103135 

R 


JMS 

ENDPUT 

03015 

R 

102543 

R 


JMS 

TRNCMD 

0 3016 

R 

603044 

R 


JMP 

B0TAP3 

03017 

R 

600306 

R 


JMP 

EXIT 

03020 

R 

000000 

A 

BPTAP1 

0 


03021 

R 

200042 

R 


LAC 

WRTEXT 

03022 

R 

360075 

R 


TAD* 

DENPAR 

03023 

R 

360077 

R 


TAD* 

HANNUM 

03024 

R 

060067 

R 


DAC* 

CMD 

03025 

R 

200163 

R 


LAC 

MAXBUF 

03026 

R 

060071 

R 


DAC* 

WC 

03027 

R 

207576 

R 


LAC 

CBUF1-1) 

03030 

R 

060074 

R 


DAC* 

CA 

03031 

R 

207617 

R 


LAC 

CBDTAP2) 

0 3032 

R 

040115 

R 


DAC 

DISTSW 

03033 

R 

20Q061 

R 


LAC 

CKWRT 

03034 

R 

060072 

R 


DAC* 

CHKPTR 

03035 

R 

142543 

R 


JMS 

TRNCMD 

03036 

R 

603044 

R 


JMP 

BPTAP3 

03037 

R 

600306 

R 

i 

JMP 

EXIT 

03040 

R 

000000 

A 

/ 

BDTAP2 

0 


03041 

R 

207470 

R 


LAC 

SAVDIS 

03042 

R 

040115 

R 


DAC 

DISTSW 

03043 

R 

600642 

R 


JMP 

RANTST+1 

03044 

R 

207514 

R 

y 

BDTAP3 

LAC 

TSTNO 

03045 

R 

547524 

R 


SAP 

C03 

03046 

R 

6 0 0 650 

R 


JMP 

RANTS3 

03047 

R 

600367 

R 


JMP 

TERMIN 


• EJECT 


/BAD TAPE SEQUENCE, PERFORMED 
/IN THE EVENT OF A BAD TAPE 
/ERROR. THE SEQUENCE IS AS 
/FOLLOWS, A FORCED BACKWARD 
/SPACE IS ARTIFICIALLY SET AS 


/THE NEST OPERATION FOR THIS 

/handler. 


/SET SPECIAL SEQUENCE SWITCH TO 
/AVOID SELECT NXT OP FOR THIS HANDLER, 


/SECOND PORTION OF BAD TAPE 
/SEQUENCE, FORCE AN EXTENDED 
/WRITE 


/SET CHECK POINTER AS FOR A 
/NORMAL WRITE, 

/RETURN, TO NORMAL SEQUENCE, 
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MAGTAP 

SRC 





030 30 

R 

000000 

A 

ERRPUT 

0 



03051 

R 

220067 

R 


LAC* 

CMD 

/SET INITIAL COMMAND. 

03052 

R 

103130 

R 


JUS 

PUT 


03053 

R 

200022 

R 


LAC 

ENCODE 


0 3054 

R 

587557 

R 


AND 

(7) 


03055 

R 

54755/ 

R 


S AO 

(7) 


03056 

R 

741000 

A 


SKP 



03057 

R 

603062 

R 


JMP 

• +3 


03060 

R 

207503 

R 


LAC 

SSVTAT 


03061 

R 

741000 

A 


SKP 



03062 

R 

200110 

R 


LAC 

SVSTAT 

/SET RESULTING STATUS. 

03063 

R 

103130 

R 


JMS 

PUT 


0 3054 

R 

228071 

R 


LAC* 

we 

/SET INITIAL WORD COUNT. 

03065 

R 

103130 

R 


JfiS 

PUT 


03066 

R 

200112 

R 


LAC 

SVWC 

/SET FINAL WORD COUNT. 

03067 

R 

1.03130 

R 


JMS 

PUT 


03070 

R 

220070 

R 


LAC* 

CA 

/SET INITIAL CURRENT ADDRESS. 

03071 

R 

103130 

R 


JMS 

PUT 


03072 

R 

200111 

R 


LAC 

SVC A 

/SET FINAL CURRENT ADDRESS. 

03073 

R 

103130 

R 


JMS 

PUT 


03074 

R 

623050 

R 

y 

JMP* 

ERRPUT 

/RETURN. 





/ 

/ROUTINE 

: FOR 

DETERMINING 

ERROR NUMBER. 

03075 

R 

000000 

A 

ERNUM 

0 



03076 

R 

203075 

R 


LAC 

ERNUM 

/GET ERROR ENTRY ADDRESS AND 

03077 

R 

507620 

R 


AND 

(77777 ) 


03100 

R 

347621 

R 


TAD 

C-2) 

/FORM: 

03101 

R 

047443 

R 


DAC 

ERN, 1# 

/(ERR. ADR. -BASE ADR . ) =?ER , NUM , 

03102 

R 

750001 

A 


CLC 



03103 

R 

347622 

R 


TAD 

(ER0U 


0310 4 

R 

740001 

A 


CM A 



03105 

R 

367443 

R 


TAD* 

ERN.l 


03106 

R 

587620 

R 


AND 

C 77777) 


03107 

R 

047443 

R 


DAC 

ERN.l 


03110 

R 

103112 

R 


JMS 

RESPUT 

/SET ERROR NUMBER IN PROPER TABLE 

03111 

R 

623075 

R 


JMP* 

ERNUM 

/RETURN, 


.EJECT 
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/PUT ROUTINE. PLACES ERROR PARAMETERS IN {SUCCESSIVE LOGS, IN PROPER 


/ERROR TABLE FOR MONITOR 
/ 


03112 

R 

0 0 0 0 0 0 

A 

RESPUT 

0 


03 It 3 

R 

200020 

R 


LAC 

SYSERR 

03114 

R 

740200 

A 


SZA 


03115 

H 

603122 

R 


JMP 

PUTS „ 1 

03116 

R 

207443 

R 


LAC 

ERN.l 

03117 

R 

040022 

R 


DAC 

ENCODE 

03120 

R 

207623 

R 


LAC 

(ERCQQE+ 

03121 

R 

603125 

R 


JMP 

PUTS, 2 

03122 

R 

207443 

R 

PUTS,! 

LAC 

ERN.l 

03123 

R 

040175 

R 


DAC 

SAVERR 

03124 

R 

207624 

R 


LAC 

(SAVERR+ 

03125 

R 

047462 

R 

PUTS , 2 

DAC 

PUT. 1# 

03126 

R 

147463 

R 


OZM 

PUT. 2# 

03127 

R 

623112 

R 


JMP* 

RESPUT 

03130 

R 

000000 

A 

PUT 

0 


03131 

R 

M67462 

R 


DAC* 

PUT , 1 

03132 

R 

447462 

R 


ISZ 

PUT • 1 

03133 

R 

447463 

R 


ISZ 

PUT. 2 

03134 

R 

623130 

R 


JMP* 

PUT 

03135 

R 

000000 

A 

ENOPUT 

0 


03136 

R 

447463 

R 


ISZ 

PUT. 2 

03137 

R 

200020 

R 


LAC 

SYSERR 

03140 

R 

740200 

A 


SZA 


03141 

R 

603160 

R 


JMP 

PUTS. 3 

03142 

R 

207463 

R 


LAC 

PUT. 2 

03143 

R 

740001 

A 


CM A 


03144 

R 

347521 

R 


TAP 

Cl) 

03145 

R 

040021 

R 


DAC 

ENCODE** 1 

03146 

R 

207441 

R 


LAC 

DONE 

03147 

R 

741200 

A 


SNA 


03150 

R 

603155 

R 


JMP 

ENDP.l 

03151 

R 

777776 

A 


LAW 


03152 

R 

040020 

R 


DAC 

SYSERR 

03153 

R 

600306 

R 


JMP 

EXIT 


.EJECT 


/GET SECOND ERROR FLAG, IS IT ON? 

/YES, THIS IS SECOND ERROR. 

/NO, FIRST ERROR. GET ERRUR NUMBER. 
/SET ERROR NUMBER. 

U /SET START PUTAWAY ADDRESS. 


/SET ERROR NUMBER. 

n 

/SET START PUTAWAY ADR, 

/CLEAR PARAMETER COUNTER, 

/EXIT. 

/PUT SUBROUTINE, DEPOSITS PARAMETERS 
/IN SUCCESSIVE LOGS, 


/CHECK SECOND ERROR FLAG, 


/ON, 

THIS WAS 

SECOND 

ERROR. 

/OFF, 

THIS WAS 

FIRST 

ERROR. 

/SET 

PARAMETER 

COUNT 

IN 
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03154 

R 

600367 

R 

PON, l 

JMP 

TERM IN 


03155 

R 

207625 

R 

ENQP , 1 

LAC 

C-13 

/NORMAL ERROR TABLE, SET 

03156 

R 

040020 

R 


DAC 

SYSERR 

/SYSERR TO -1 FOR MONITOR, 

03157 

R 

623135 

R 


JMP* 

ENDPUT 

/EXIT, 

0 3160 

R 

207463 

R 

PUTS, 3 

LAC 

PUT, 2 

/THIS IS SECOND ERROR, SET 

03161 

R 

740001 

A 


CM A 



03162 

R 

347521 

R 


TAP 

cn 


03163 

R 

040174 

R 


DAC 

saverr-i 

/PARAMETER COUNT, SET ERROR 

03164 

R 

777777 

A 


LAW 

- 1 

/SWITCH TO MOVE PARAMETERS, 

03165 

R 

047457 

R 


DAC 

MOVERR 

/SET -2 FOR MONITOR IN 

03166 

R 

207621 

R 


LAC 

(-2) 

/SYSERR AND 

03167 

R 

040020 

R 


DAC 

SYSERR 


03170 

R 

707322 

A 


MTAF 



03171 

R 

600306 

R 


JMP 

EXIT 

/EXIT TO MONITOR, NO NEW I/O. 

03172 

R 

000000 

A 

MOVPUT 

0 



03173 

R 

200174 

R 


LAC 

SAVERR-I 

/GET PARAMETER COUNT +1 AND 

03174 

R 

347625 

R 


TAD 

(-13 

/SET FOR MOVE. 

03175 

R 

047462 

R 


DAC 

PUT.l 


03176 

R 

207626 

R 


LAC 

(SAVERR-13 

/SET--FRQM--APDRESS 

03177 

R 

047463 

R 


U AC 

PUT, 2 


03200 

R 

207627 

R 


LAC 

CERCQQE- 1 3 

/SET — TO — ADDRESS 

03201 

R 

047464 

R 


DAC 

PUT . 3# 


03202 

R 

227463 

R 

PUTS, 4 

LAC* 

PUT, 2 

/MAKE THE MOVE OF ERROR 

03203 

R 

067464 

R 


DAC* 

PUT. 3 

/PARAMETERS. 

03204 

R 

447463 

R 


ISZ 

PUT. 2 


03205 

R 

447464 

R 


ISZ 

PUT. 3 


03206 

R 

447462 

R 


ISZ 

PUT.l 


03207 

R 

603202 

R 


JMP 

PUTS. 4 


03219 

R 

777777 

A 


LAW 

-1 

/BONE WITH MOVE. 

03211 

R 

040020 

R 


DAC 

SYSERR 


03212 

R 

1 47457 

R 


D2M 

MOVERR 

/RESET MOVE ERROR SWITCH. 

03213 

R 

623135 

R 


JMP* 

ENDPUT 

/GO TO INITIATE NEW I/O. 





/ 

/OPERATION TABLE, ENTRIES BY 

handler 

03214 

R 


A 

OPR TAB 

.BLOCK 

numhan*numpar 

/CONTAINS------------- 

/COMMAND 

/CURRENT ADDRESS 
/WORD COUNT 

/CHECK ROUTINE POINTER FOR THIS CMD 

/ C N T R 

/CNTW 

/CURRENT DENSITY AND PARITY. 
/NlNETRACK handler, 

/ACTIVE - INACTIVE 





/ 

/1NPUT- 

OUTPUT 

BUFFERS 

/REWINDING - NOT REWINDING, 

03414 

R 


A 

RUFl 

.BLOCK 

BUFSIZ 

/BUFFER 1 . 

07414 

R 

000000 

A 

END8UF 

0 

.EJECT 
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07520 R 

07521 R 

07522 R 

07523 R 

07524 R 

07525 R 
07525 R 
07527 R 

07530 R 

07531 R 

07532 R 

07533 R 

07534 R 

07535 R 

07536 R 

07537 R 

07540 R 

07541 R 

07542 R 

07543 R 

07544 R 

07545 R 

07546 R 

07547 R 

07550 R 

07551 R 

07552 R 

07553 R 

07554 R 

07555 R 

07556 R 

07557 R 

07560 R 

07561 R 

07562 R 

07563 R 

07564 R 

07565 R 

07566 R 

07567 R 

07570 R 

07571 R 

07572 R 

07573 R 

07574 R 

07575 R 

07576 R 

07577 R 

07600 R 

07601 R 

07602 R 

07603 R 


MAGTAP 1 

SRC 

000000 

R 


3 77777 

A 

*L 

000001 

A 

*L 

100000 

A 

*1 

000300 

A 

*L 

000000 

A 

*L 

.0 00100 

A 

*1 

000200 

A 

*1 

400000 

A 

*L 

77660® 

A 

*L 

777774 

A 

*1 

000641 

R 

*1 

000151 

R 

*L 

000010 

A 

*L 

1 77777 

A 

*1 

000615 

R 

*L 

700000 

A 

*L 

200000 

A 

*1 

777600 

A 

*L 

003214 

R 

*L 

010000 

A 

*L 

774000 

A 

*L 

001000 

A 

★ L 

0034J.5 

R 

*1 

•000002 

A 

*1 

040000 

A 

*L 

137600 

A 

*L 

000400 

A 

*L 

020000 

A 

*1 

001116 

R 

*1 

001157 

R 

*L 

001171 

R 

*L 

000007 

A 

*L 

000070 

R 

*L, 

007000 

A 

*L 

006000 

A 

*L 

002000 

A 

*L 

004000 

A 

*L 

000004 

A 

*L 

000005 

A 

*L 

000077 

A 


000006 

A 

★L 

040300 

A 

*L 

770000 

A 

*L 

001673 

R 

*L 

001663 

R 

*1 

766000 

A 

*1 

003413 

R 

*L 

002014 

R 

★ L 

002132 

R 

*L 

000164 

R 

*L 

002232 

R 

*1 

002253 

R 

*L 
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o o 

07604 R m 3414 R *L 

07605 R 002346 R *L 

Q 07606 R 003367 R *L Q 

07607 R 000003 A *L 
07610 R 002444 R *L 

O 07611 R 002473 R *1 Q 

07612 R 002504 R *U 

07613 R 002532 R *1 

O 07614 R 003000 A *1 Q 

07615 R 777477 A *L 

07 616 R 003020 R *L 

O 07617 R 003040 R *t O 

07620 R 077777 A *L 

07621 R 777776 A *L 

O 07622 R 002646 R *L O 

07623 R 000023 R *L 

07624 R 000176 R *L 

O 0/625 R 777/77 A *L O 

Pi 7 6 2 6 R 5)00174 R *L 
07627 R 000021 R *L 

o SI2ES07642 NO ERROR LINES Q 

O O 

O O 

O O 

O O 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o 


o 
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ACSAVE 

07415 

R 

ACTIVE 

00161 

R 

BADTAP 

03001 

R 

BDTAP1 

03020 

R 

BREAK 

00433 

R 

BREAK 1 

00451 

R 

BUFSIZ 

00400 0 

A 

BUF . 1 

07420 

R 

BUF 1 

03414 

R 

CA 

00070 

R 

CHKC . 2 

0 1 0 & 7 

R 

CHKHAN 

02072 

R 

CHKTAB 

000055 

R 

CHK.l 

07423 

R 

CKROCM 

00060 

R 

CKREAP 

00057 

R 

CKRW . 1 

02045 

R 

CKRW.2 

02034 

R 

CKSR . 4 

00717 

R 

CKSR2 

00666 

R 

CKSR6 

01024 

R 

CKSR7 

01027 

R 

CKS.3 

07427 

R 

CKS2.1 

07430 

R 

CKWRT 

00061 

R 

CKWTEF 

00062 

R 

CKW.3 

07433 

R 

CLBM.l 

07434 

R 

CLOPTB 

00627 

R 

CLOP . 1 

00634 

R 

CLROIS 

01513 

R 

CLRRWD 

02057 

R 

CMDDIS 

01537 

R 

CMDD.l 

01556 

R 

CMDD.6 

01600 

R 

C M 0 0 f 7 

01612 

R 

CNTR 

00073 

R 

CNTW 

00074 

R 

DISTSW 

00115 

R 

DLRETY 

01224 

R 

DOOVER 

01116 

R 

OSTSW1 

07442 

R 

ENDBUF 

07414 

R 

ENDQPR 

00356 

H 

EQFCNT 

00101 

R 

EOFCON 

00126 

R 

ERN . 1 

07443 

R 

ERRPUT 

030 50 

K 

ERR00 

02671 

R 

ERR01 

02677 

R 

E R R 0 4 

02733 

R 

ERR2.1 

02725 

R 

ER0 1 

02646 

R 

ER02 

02647 

R 

ER05 

02652 

R 

ER06 

02653 

R 

ER 1 0 

02655 

R 

ER10.1 

01105 

R 

ER 1 3 

02660 

R 

ER 1 4 

02661 

R 

ER17 

02664 

R 

ER20 

02665 

R 

ER23 

02670 

R 

EXIT 

00306 

R 

FIV.2 

01211 

R 

GENRD 

02625 

R 

GET 

00621 

R 

GET . 1 

0744 5 

R 

HANNOl 

07447 

R 

NANN02 

07450 

R 

HOLD 

02307 

R 

INCRE 

00604 

R 

INTO. 3 

01757 

R 

INTO. 4 

01731 

K 

INT.3 

0 7 452 

R 

I NT , 4 

07453 

R 

LINK 

07456 

R 

NAXBUF 

00 1 63 

R 

MINI . t 

00465 

R 

MINI. 2 

00507 

R 

MPY 

01263 

R 

MSERV 

00301 

R 

NTCM 

707324 

A 

MTCR 

707321 

A 

MTRC 

707312 

A 

mtrs 

707352 

A 

NONSEN 

00076 

R 

nontab 

00116 

R 

NUMHAN 

000010 

A 

NUMPAR 

000020 

A 

PARD.2 

01103 

R 

PART A8 

000067 

R 

POLHAN 

00525 

R 

P0LH.2 

00555 

R 

P0LH.6 

00615 

R 

PQLH.7 

00531 

R 

POLINT 

00513 

R 

PUT 

03130 

R 

PUTS. 3 

03160 

R 

PUTS. 4 

03202 

R 

PUT. 3 

07464 

R 

RANCNT 

01660 

R 

RANGEN 

01624 

R 

RANINT 

00456 

R 

RANT AO 

01641 

R 

RANTBL 

0 1663 

R 


ANRWD 

00162 

R 

apiflg 

97416 

R 

8DTAP2 

03040 

R 

S0TAP3 

03044 

R 

BRKAC 

07417 

R 

BUFGEN 

02601 

R 

BUF. 2 

07421 

R 

BUF. 3 

07422 

R 

CHKCOH 

91032 

R 

CHKC . 1 

01045 

R 

CHKOPR 

00661 

R 

CHKPTR 

00072 

R 

CKNOOP 

00055 

R 

CKO.l 

07424 

R 

CKRWD 

02023 

R 

CKRWND 

00056 

R 

CKSPBK 

00964 

R 

CKSPFD 

00063 

R 

CKSK4 

01000 

R 

CKSR5 

01015 

R 

CKS.l 

07425 

R 

CKS.2 

07426 

R 

CKS2.2 

00743 

R 

CKS2.3 

00752 

R 

CKW.l 

07431 

R 

CKW.2 

07432 

R 

CLBM.2 

07435 

R 

CLBM1 

02274 

R 

CLO.l 

07436 

R 

CL0.2 

07437 

R 

CMD 

00067 

R 

CMDCNT 

00100 

R 

CMDD.2 

0 1562 

R 

CM0D.5 

01566 

R 

CMDSKL 

000032 

R 

CMO.l 

07440 

R 

CURNAN 

00066 

R 

PENPAR 

00975 

R 

DONE 

07441 

R 

OON.l 

03154 

R 

EBA 

707764 

A 

EEM 

707702 

A 

ENDPUT 

03135 

R 

ENDP. 1 

03155 

R 

ERCODE 

00922 

R 

ERNUM 

03075 

R 

ERR. 1 

02771 

R 

ERR. 22 

07444 

R 

ERR02 

02723 

R 

ERR03 

02727 

R 

ERR4.1 

02743 

R 

ERR4.2 

02742 

R 

ER03 

02650 

R 

ER94 

02651 

R 

ER07 

02654 

R 

ER07.1 

01144 

R 

ER 1 1 

02656 

R 

ER 1 2 

02657 

R 

ER 1 5 

02662 

R 

ER 1 6 

02663 

R 

ER2 1 

02666 

R 

ER22 

02667 

R 

FIVTRY 

01157 

R 

FIV.l 

01171 

R 

GENRWD 

01505 

R 

GENWRT 

02255 

R 

HANCNT 

07446 

R 

HANDNM 

00045 

R 

HANNUM 

00077 

R 

HNDNUM 

07451 

R 

INTOPR 

01673 

R 

INTO , 1 

01722 

R 

INTO. 5 

91764 

R 

INTO, 6 

01727 

R 

I NT • 5 

07454 

R 

INT.6 

97455 

R 

MINIT 

90205 

R 

MINIT! 

00224 

R 

MOVERR 

07457 

R 

movput 

03172 

R 

MSKTAB 

00131 

R 

mtaf 

707322 

A 

MTGO 

707394 

A 

MTLC 

707326 

A 

MTSF 

707341 

A 

MTTR 

707301 

A 

NOOP 

90032 

R 

NOOP 1 

00043 

R 

OPRTAB 

03214 

R 

PARDRL 

01064 

R 

PATTEN 

07460 

R 

POLDON 

07461 

R 

PQLN.4 

00562 

R 

P0LH.5 

00570 

R 

POLH.B 

00577 

R 

P0LH.9 

00535 

R 

PUTS . 1 

03122 

R 

PUTS, 2 

03125 

R 

PUT . 1 

07462 

R 

PUT, 2 

07463 

R 

RANCON 

01661 

R 

RANOEX 

01662 

R 

RANLEN 

07465 

R 

RAMS A V 

01657 

R 

RANTS! 

00641 

R 

RANTS2 

00646 

R 



RANTS3 

00650 

R 

RANTS5 

00651 

R 

ROCOMP 

00038 

R 

READ 

00034 

R 

RES0UF 

fa 2 617 

R 

RESPUT 

03112 

R 

RPTER7 

01230 

R 

SAVCMD 

07467 

R 

saverr 

00175 

R 

5AV0L0 

01126 

R 

SELTAB 

02152 

R 

SELT , 1 

02160 

R 

SELT * 4 

02202 

R 

SEL.l 

07472 

R 

SETN.l 

01254 

R 

SETRWD 

01772 

R 

SET. 2 

07475 

R 

SLNO « 0 

01353 

R 

SLN0.3 

01412 

R 

SLN0.4 

01451 

R 

slno, a 

01467 

R 

SLNO, 9 

01473 

R 

SLNXOP 

01344 

R 

SLNX,1 

02137 

R 

SLN.i 

07476 

R 

SLN.2 

07477 

R 

SLX.2 

07 502 

R 

SPBCNT 

00105 

R 

SPCREV 

00041 

R 

SPFCNT 

00104 

H 

SVGA 

00111 

R 

SVCMO 
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